open my $in, '<', "whatever" or die "can't open `whatever': $!\n";
open my $out, '>', "whatever" or die "can't open `whatever': $!\n";