main();

sub main {
  my $var = 0;
  foo();
  bar();
}

sub foo {
 ...
}

sub bar {
  ...
}