1#!/usr/bin/env perl
2# Check that given arguments do not exist on filesystem.
3my $code = 0;
4if ($#ARGV < 0) {
5    print "Usage: $0 file1 [fileN]\n";
6    exit 2;
7}
8while (@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}
15exit $code;
16