Select Code to Download

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

print Data::Dumper->Dump([\@return],['return']);

#!/usr/bin/perl
print "Foo\n";
...
print "Bar\n";
sleep 3;
print "Foobar\n";

$return = [];