my $count=10;

if(@ARGV && $ARGV[0] =~ /'^-') {
  ($count) = $ARGV[0] =~ /^(\d+)/;
   shift(@ARGV);
}

##</code><code>##

($count) = $ARGV[0] =~ /^(\d+)/;