8 open(FH, "> $file") || die "can't create $file: $!";
9 print FH "not ok " . $j++ . "\n";
10 close(FH) || die "Can't close $file: $!";
18 @ARGV = mkfiles(1..3);
21 print STDOUT "# initial \@ARGV: [@ARGV]\n";
30 @ARGV = mkfiles(1..3);
33 print STDOUT "#final \@ARGV: [@ARGV]\n";
48 print STDOUT "# Calling other\n";
52 @ARGV = mkfiles(5, 4);
54 print STDOUT "# inner \@ARGV: [@ARGV]\n";
60 my @files = map { "scratch$_" } @_;
61 return wantarray ? @files : $files[-1];
64 END { unlink map { ($_, "$_.bak") } mkfiles(1..5) }