1 #!/usr/bin/env perl 2 # Check that given arguments do not exist on filesystem. 3 my $code = 0; 4 if ($#ARGV < 0) { 5 print "Usage: $0 file1 [fileN]\n"; 6 exit 2; 7 } 8 while (@ARGV) { 9 my $fname = shift @ARGV; 10 if (-e $fname) { 11 print "Found '$fname' when not supposed to exist.\n"; 12 $code = 1; 13 } 14 } 15 exit $code; 16
