$> PIPE DIR | SEARCH SYS$INPUT TEST.PL

##</code><code>##

#!perl -w

use strict;
use vmsish;

# The 'TYPE ...' is basically a 'cat > FILE.TMP'...
open OUTFILE, ' | TYPE SYS$INPUT /OUTPUT=FILE.TMP'
    or die "$0: can't open: $!";

print OUTFILE "Wish this would work...\n";

close OUTFILE or die "$0: can't close: $!";

##</code><code>##

test.pl: can't open: file specification syntax error at test.pl line 6.