Select Code to Download

sub parse_header {
   my ($header) = @_;
   do this and thia
}

sub parse_header {
   my $header = shift;
   do this and thia
}

sub three_args_func {
   my ($arg0, $arg1, $arg2) = @_;
   do this and thia
}

sub three_args_func {
   my $arg0 = shift;
...
   my $arg2 = shift;
   do this and thia
}