Select Code to Download

my $stem = $ARGV[0];
my $start = $ARGV[1];
...
        print `cp $_ $outstring\n`;
        $start++}}

Subroutine bits redefined at /System/Library/Perl/5.8.6/strict.pm line
+ 11.
Subroutine import redefined at /System/Library/Perl/5.8.6/strict.pm li
+ne 27.
Subroutine unimport redefined at /System/Library/Perl/5.8.6/strict.pm 
+line 32.
Use of uninitialized value in concatenation (.) or string at rename4li
+b.pl line 16.