Select Code to Download

sub check_field {
    my $file_name = shift;
...
    return 0 if $#fields < 0;
    return $fields[2] =~ /^\d+$/;
}