sub foo {
  print "hello";
}

sub main {
  my $x = 2;
  foo();
}