open my $f, '<', 'file' or die $!;