«...writing the main code after the subs are declared or putting a block around it.»

You mean something like this I guess:

#!/usr/bin/env perl

use strict;
use warnings;

KARL: {
    nose();
}

sub nose {...;}

__END__
[download]

I wrote my code many years like this and I can’t tell how often I’ve been blamed for it.