#!c:\Apps\xampp\perl\bin\perl.exe -wT
use strict;
my $user_name;
$user_name = $ARGV[0];
print "IN SCRIPT: user_name == $user_name\n";
login();
print "IN SCRIPT: user_name == $user_name\n";
sub login {
print "IN SUBROUTINE: user_name == $user_name\n";
print "Can I change it in the subroutine?\n";
$user_name = "Bill";
print "IN SUBROUTINE: user_name == $user_name\n";
}
####
use strict;
my $user_name="";
$user_name = param('username');
print "Content-type: text/html\n\n";
print "\n";
print "IN SCRIPT: user_name == $user_name
\n";
login();
print "IN SCRIPT: user_name == $user_name\n";
print "
\n";
sub login {
print "IN SUBROUTINE: user_name == $user_name
";
print "Can I change it in the subroutine?
";
$user_name = "Bill";
print "IN SUBROUTINE: user_name == $user_name
\n";
}
####