open my $in, "<", $filename or die "open $filename: $!";
    process($in);
    close $in;