#!/usr/bin/perl

exit main();

sub main {
   ...
}