Lines Matching refs:perl
1 #!./perl -w
23 my $perl = $^X;
55 ok 1, $pid = open3 'WRITE', 'READ', 'ERROR', $perl, '-e', cmd_line(<<'EOF');
71 $pid = open3 'WRITE', 'READ', 'READ', $perl, '-e', cmd_line(<<'EOF');
83 $pid = open3 'WRITE', 'READ', '', $perl, '-e', cmd_line(<<'EOF');
97 $perl, '-e', cmd_line('print scalar <STDIN>');
106 $perl, '-e', cmd_line('print scalar <STDIN>');
114 $perl, '-e', cmd_line('print STDERR scalar <STDIN>');
119 $pid = open3 'WRITE', '>&STDOUT', '>&STDOUT', $perl, '-e', cmd_line(<<'EOF');
129 $pid = open3 'WRITE', '>&STDOUT', '', $perl, '-e', cmd_line(<<'EOF');
142 eval{$pid = open3 'WRITE', '>&STDOUT', 'ERROR', "$perl -e " . $cmd; };