in reply to How Do I Use Getopt::Long without switches?

usage() if @ARGV != 2;
my ($user, $passwd) = @ARGV;

[download]

In Section Seekers of Perl Wisdom