Select Code to Download

    read $fh, $binrec, $1;
    if (defined $binrec) {
...
    else {
        print 'test 2: undefined $binrec!\n';
    }