Select Code to Download

use IO::Select;

...
    print scalar localtime;
}

my $input;
sysread( $fh, $input, 1024);