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

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

##</code><code>##

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

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

##</code><code>##

die "usage : prog foo bar\n" unless (@ARGV == 2) ;

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