Select Code to Download

print "Enter basename: ";
my $filename = <STDIN>;
chomp $filename;

print "File=>>$filename<<\n";