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

##</code><code>##

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