Select Code to Download

my $filename = $ARGV[0] or die "No filename given\n";
open INPUT, "<", $filename or die "could not open $filename\n";
while (<INPUT>) { print $_ };
close INPUT;

my ($file_without_path) = $filename =~ /^.*?\/(\w*?\w*?\.ext)$/;