1   use strict;
1   
1   my $user_name;
1   
1   $user_name = $ARGV[0];
1    
1   print "IN SCRIPT: user_name == $user_name\n";
1   
1   login();
1   
1   print "IN SCRIPT: user_name == $user_name\n";
1   
1 2 sub login    {
1 2
1 2    print "IN SUBROUTINE: user_name == $user_name\n";
1 2    print "Can I change it in the subroutine?\n";
1 2    $user_name = "Bill";
1 2    print "IN SUBROUTINE: user_name == $user_name\n";
1 2
1 2}
1