my $file = <STDIN>;
chomp $file;
open my $handle, '<', $file or die "Can't read $file: $!";