use strict;
use warnings;
open my $F1, '| sort >t' or die;
while (<DATA>) {
    print $F1 $_;
}
__DATA__
the
quick
red
fox
jumped
over
the
lazy
brown
dog

##</code><code>##

$ perl foo.pl
$ cat t
brown
dog
fox
jumped
lazy
over
quick
red
the
the