unless(@ARGV == 2)
{
    print "usage : prog foo bar\n" ;
    exit(1) ;
}

my ($infile, $outfile) = @ARGV ;