open my $infh, '<', $in or die "$in could not be opened:$!\n";