Select Code to Download

use IPC::Open3;
use strict;
...
    print $line;
}
waitpid($pid, 0);

use strict;
use warnings;
...
while (<>) {
    print "[", $_, "]\n";#in your case, you would save this to an arra
+y, or if you want scalar reset local $/
}

dir|perl -w foo.pl