#!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: $!";