You can open a handle to a pipe, then print to the handle (*nix type example, but you get the idea):

open(PIPE, '| /bin/cat') or die "Could not open PIPE\n";
print PIPE "test123\n";
print PIPE "test456\n";
close PIPE or die "Could not close PIPE\n";
[download]