Select Code to Download

#!/usr/bin/perl -w
use strict;

...
    open my $out, '|-', 'perl script.pl' or die "Piping fail: $!\n";
    print $out @lines;
}