4 lines
144 B
Perl
4 lines
144 B
Perl
|
open(SORT, "| sort" ) or die; # Open pipe to write to
|
||
|
|
print SORT "dogs\ncats\nbirds\n" # Sorts birds, cats, dogs on separate lines.
|
||
|
|
|
||
|
|
|