Select Code to Download

use constant KERNEL => 0;
sub sub1 {
...
  my $kernel = shift; # copies arg
  $kernel = 3;  # does not modify caller's version
}