unixhome,

There is more than one way to do it.

# 1.
sub parse_header {
  # Get the first argument passed to the function/method.
  my $header = shift(); 
  ....
}
[download]

# 2.
sub parse_header {
  # Get the first argument passed to the function/method.
  my $header = $_[0];
  ....
}
[download]