sub subroutine {
  my $arg = shift;

  print "$arg\n";
}