Select Code to Download

#!/usr/bin/perl

...
print OUT $buffer while
        (read (IN,$buffer,65536));

#!usr/bin/perl
use strict;
...

print "I am done!!!!";
sleep(2);