#!/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
}