Select Code to Download

#!/usr/bin/perl;

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

#!/usr/bin/perl;

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

my $foo;

... zillions of lines of subs

... followed by your main logic

... zillions of lines of subs

...
use vars qw($foo);

... followed by your main logic

sub foo {
...
...
}

more program logic