sub foo {
  my $package  = shift;
  my $argument = shift;
  # ...
}