Select Code to Download

#!/usr/bin/env perl

...

    return;
}

$ pm_1203774_file_io_basics.pl
'pm_1203774_transient_data' not found.
...
No. of records: 26
'pm_1203774_transient_data' exists.
'pm_1203774_transient_data' not found.

$ pm_1203774_file_io_basics.pl 1 2 3
'pm_1203774_transient_data' not found.
...
No. of records: 26
'pm_1203774_transient_data' exists.
'pm_1203774_transient_data' not found.

$ pm_1203774_file_io_basics.pl 26 24 25
'pm_1203774_transient_data' not found.
...
No. of records: 26
'pm_1203774_transient_data' exists.
'pm_1203774_transient_data' not found.

$ pm_1203774_file_io_basics.pl A B C 26 1 27 0 2 garbage
'pm_1203774_transient_data' not found.
...
Problem records: 0 27 A B C garbage
'pm_1203774_transient_data' exists.
'pm_1203774_transient_data' not found.

#!/usr/bin/env perl

...
        print;
    }
}

Record #1
0 HEAD
...
1 NAME Submitter
Record #7
0 TRLR