#!/usr/bin/perl;

a_man_walks_into_a_bar();
man_says("Hello");
bartender_says("What'll ya have?");
man_says("Sasparilla. In a dirty glass");
exit;

### SUBS FOLLOW ###
sub a_man_walks_into_a_bar {
  ... many lines of code
}

sub man_says {
  ... many lines of code
}

sub bartender_says {
  ... many more lines of code
}

##</code><code>##

#!/usr/bin/perl;

sub a_man_walks_into_a_bar {
  ... many lines of code
}

sub man_says {
  ... many lines of code
}

sub bartender_says {
  ... many more lines of code
}

a_man_walks_into_a_bar;
man_says("Hello");
bartender_says("What'll ya have?");
man_says("Sasparilla. In a dirty glass");
exit;

##</code><code>##

my $foo;

... zillions of lines of subs

... followed by your main logic

##</code><code>##

... zillions of lines of subs

our $foo;
or 
use vars qw($foo);

... followed by your main logic

##</code><code>##

sub foo {
...
}

program logic

sub bar {
...
}

more program logic