#!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";

}