vmspipe.com revision 1.1.1.1 
1$! 'f$verify(0)         
2$!  ---  protect against nonstandard definitions ---
3$ perl_define = "define/nolog"
4$ perl_on     = "on error then exit $STATUS"
5$ perl_exit   = "exit"
6$ perl_del    = "delete"
7$ pif         = "if"
8$!  --- define i/o redirection (sys$output set by lib$spawn)
9$ pif perl_popen_in  .nes. "" then perl_define/user/name_attributes=confine sys$input  'perl_popen_in'
10$ pif perl_popen_err .nes. "" then perl_define/user/name_attributes=confine sys$error  'perl_popen_err'
11$ pif perl_popen_out .nes. "" then perl_define      sys$output 'perl_popen_out'
12$ cmd = perl_popen_cmd
13$!  --- get rid of global symbols
14$ perl_del/symbol/global perl_popen_in
15$ perl_del/symbol/global perl_popen_err
16$ perl_del/symbol/global perl_popen_out
17$ perl_del/symbol/global perl_popen_cmd
18$ perl_on
19$ 'cmd
20$ perl_exit '$STATUS'
21