| #!/usr/bin/env perl | |
| # Check that given arguments do not exist on filesystem. | |
| my $code = 0; | |
| if ($#ARGV < 0) { | |
| print "Usage: $0 file1 [fileN]\n"; | |
| exit 2; | |
| } | |
| while (@ARGV) { | |
| my $fname = shift @ARGV; | |
| if (-e $fname) { | |
| print "Found '$fname' when not supposed to exist.\n"; | |
| $code = 1; | |
| } | |
| } | |
| exit $code; |