从命令行获得参数

#!/usr/bin/perl

##############################################################################

my $user = $ARGV[0];

my $pwd = $ARGV[1];

print "传入的参数是：\n";

print "$user and $pwd \n";