Select Code to Download

use File::Basename;
my $filename = <>;
...
print "Name: $name\n";
print "Ext : $suffix\n";
my $fff= $path . $name . '_header.txt';