#!/usr/bin/perl -w
use strict;
use Term::ANSIColor;
if (defined ($ARGV[0]) && $ARGV[0]!~/[0-9]+/){
    print color 'reset';
    exit;
}
my $num = 2;
my $strlen = 2;
$num = $ARGV[0] if $ARGV[0]=~/[0-9]+/;
$strlen = $ARGV[1] if $ARGV[1]=~/[0-9]+/;
print color 'green';
for (0...$num){
    print ${getStr ()}."\n";
}
print color 'reset';
sub getStr{
    my $string = q[];
    while (length $string<=$strlen){
        $string.=int (rand (2)).q[];
    }
    return \$string;
}