Select Code to Download

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

my $result = <OUT>;
print $result;

    sub refresh {
        my $pid = shift;
...
        if ($size eq '') { exit }
    }
}