my $whence = '<';
open my $fh, $whence, $file or die "$whence $!:$file";