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