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";