Select Code to Download

#!/usr/bin/perl -w
open ($FH,'| sort -n') or die($!);
...
        print $FH $_;
}
close $FH;

[demo@localhost Perl]$ cat bar.pl
#!/usr/bin/perl -w
...
a to z
Buy
Why