die "usage: script.pl firstName lastName\n" unless 2 == @ARGV;
my ( $firstName, $lastName ) = @ARGV;