#!/usr/bin/env perl
use strict;
use warnings;

main_routine();

exit;

sub main_routine {
    # lots of stuff.
}