Select Code to Download

#!/usr/bin/perl

...
    close $fh;
    sleep 2;
}

#!/usr/bin/perl

...
    $_=<$p>;
    print "got: $_"
}

#!/usr/bin/perl

...
    $t = scalar localtime;
    print "reading at $t, got: $_"
}