Select Code to Download

#!/usr/bin/perl
open(BOTH, "|./echo|") or die "error in open: $!";
...
        print <BOTH>;
}
close(BOTH) or die "error in close: $!";

print while(<>);