print "Enter filename: ";
chomp(my $file = <STDIN>);