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$! --- build command line to get max possible length 13$c=perl_popen_cmd0 14$c=c+perl_popen_cmd1 15$c=c+perl_popen_cmd2 16$x=perl_popen_cmd3 17$c=c+x 18$ perl_on 19$ 'c' 20$ perl_exit '$STATUS' 21