dont forget to chomp

chomp(my $file = <STDIN>);