my $infile = shift || die usage() ;
my $outfile = shift || die usage() ;

sub usage () {
    print "usage : prog foo bar\n" ;
}