use strict;
use warnings;

print "Plz enter file\n";
my $file = <STDIN>;