From d24a293c623ca2b2e08f2ef506e032ce38c49015 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 12 Apr 2020 16:17:49 +0100
Subject: - Added default value to Flip Binary solution.

---
 challenge-055/mohammad-anwar/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-055/mohammad-anwar/perl/ch-1.pl b/challenge-055/mohammad-anwar/perl/ch-1.pl
index 698f8ec222..62cd6d2986 100644
--- a/challenge-055/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-055/mohammad-anwar/perl/ch-1.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-my $binary_str = $ARGV[0];
+my $binary_str = $ARGV[0] // "101";
 
 print "$binary_str => ", flip_binary($binary_str), "\n";
 
-- 
cgit