Select Code to Download

#!/usr/bin/perl -w
print "File name to renumber:";
my $file = <STDIN>;
...
    print;
}
close (FILE);

 -i[extension]   edit <> files in place (makes backup
                 if extension supplied)
 -n              assume 'while (<>) { ... }' loop around program