Select Code to Download

$ cat var_gen.pl
#!/usr/bin/env perl
...
    my $number = length;
    print "$number\n";
}

$ cat var_out.pl
#!/usr/bin/env perl
while (<>) {
    print "Got $_"
}

$ var_gen.pl | var_out.pl
1
...
Got 3
Got 4
Got 5