Select Code to Download

    line 1)  if ( -e $file && -f $file && -s $file < $ok ) {
    line 2)     ...open file here....
             }

    use 5.004;
    use Fcntl qw(:DEFAULT :flock);
...
    print "got it.\n"
    } 
    # now read from FH