Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use Getopt::Std; 
 
# Process the command line options 
die "Usage: $0 -r <router> -u <username> -p <password> -e <enable password>\n" if (@ARGV < 6); 
 
exit if (!getopts('r:u:p:e:')); 
 
my $unam=$opt_u; 
my $psswd=$opt_p; 
my $epsswd=$opt_e; 
my $dev=$opt_r; 


print "$unam $psswd $epsswd $dev "

use vars qw($opt_u $opt_p ...);

OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian 5.0.8 (lenny, workstation) 
perl 5.10.0

NAME
       vars - Perl pragma to predeclare global variable names (obsolete)

       Note that, if your code is running under the recommended "use strict
       'vars'" pragma, you will need to declare these package variables with
       "our":

           our($opt_x, $opt_y);