#!/usr/bin/perl -w

use strict;

use Other::Modules qw< ImportedFunction >;

use vars qw< $Globals >;

Main( @ARGV );
exit;

sub Routine
{
    ...
}

BEGIN {
    my $static= "Initial value";

    sub usesStatic
    {
        ...
    }
}

sub Main
{
    my $putMainVarsHere;
    ...
}
__END__