sub foo {
   my ($arg) = @_;
   my $bar = $arg + 1;
   return $bar;
}