print "Debug: Arguments are $_[0] and $_[1]\n"; #### chomp(my $arg1 = shift || <>); chomp(my $arg2 = shift || <>);