
use strict 'vars';
sub will_not_double {
  my $n = shift;
  $n *= 2;
}

my $number = 119;
will_not_double($number);
print "The number is now $number.\n";


