my $arg;
my $argcount = 0;
my $debug = 0;
my $infile;

while (@ARGV) {
    $arg = shift @ARGV;
    if ($arg =~ /-d/) {
        $debug = 1;
    } elsif ($argcount == 0) {
        $infile = $arg;
    }
}