Select Code to Download

#!perl

...
my $return = $fn2->Call(0, 0); 

print "Done!\n";

#!perl -w
use strict;
...
   local($SIG{INT}) = 'IGNORE';
   $lines = threads->create( sub{ my @rv = <STDIN>; chomp @rv; return 
+\@rv } )->join();
}