Select Code to Download

sub scribble {
   while ( $a = shift ){
      $a; # has arg
   }
}

sub scribble {

...
      $_ ;  # not here!  
   }
}