Select Code to Download

#!/usr/bin/perl -w
...

$ARGV[0] || die "\n\tUsage: rp FILENAME\n\n";
my $p = HTML::TokeParser->new("$ARGV[0]") || die "\nthe file $ARGV[0] 
+doesn't exist.\n\n";

########################################
#
...
print "\nRenamed as: ";
print "$name\n\n";