4 my $file = "Run_switchF1.pl";
6 open F, ">$file" or die "Open $file: $!";
9 #!./perl -anF[~#QQ\\xq']
23 # 2 of the characters toke.c used to use to quote the split parameter:
24 $prog =~ s/QQ/\x01\x80/;
25 # These 2 plus ~ # and ' were enough to make perl choke
27 close F or die "Close $file: $!";
29 print system ($^X, $file) ? "not ok 5\n" : "ok 5\n";
31 unlink $file or die "Unlink $file: $!";