t/op.exec

   1 #!./perl
   2
   3 # $Header: op.exec,v 1.0 87/12/18 13:13:26 root Exp $
   4
   5 $| = 1;                         # flush stdout
   6 print "1..4\n";
   7
   8 system "echo ok \\1";           # shell interpreted
   9 system "echo ok 2";             # split and directly called
  10 system "echo", "ok", "3";       # directly called
  11
  12 exec "echo","ok","4";