{
    my $user_name=param('username');

    print "IN SCRIPT: user_name == $user_name<br>\n";
    login();
    print "IN SCRIPT: user_name == $user_name\n";
}
sub login	{
	print "IN SUBROUTINE: user_name == $user_name<br>";
	print "Can I change it in the subroutine?<br>";
	$user_name = "Bill";
	print "IN SUBROUTINE: user_name == $user_name<br>\n";
}