#!/usr/bin/perl -w

exit main();

sub main
{
    ...
    return (0);
}