Help for this page

Select Code to Download


  1. or download this
    my $count=10;
    
    ...
      ($count) = $ARGV[0] =~ /^(\d+)/;
       shift(@ARGV);
    }
    
  2. or download this
    ($count) = $ARGV[0] =~ /^(\d+)/;