Select Code to Download

sub check_field {
    open my $fh, "<", shift or die "Bleah!\n$!";
...
    die "Ick!\n" unless @fields == 4;
    return( ($fields[2] =~ /^\d+$/) ? 1 : 0 );
}