Select Code to Download

open FILE, $filename or die "Can't open $filename: $!\n";

my $filename = shift @ARGV or die "Usage: $0 filename\n";