Select Code to Download

my $file_name = $2;
open (FILE, "$name") or die "unable to open file";

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

...
}

print $query->end_html;