#!/usr/bin/env perl

use Modern::Perl;

exit main(@ARGV);

sub main
{
    my @args = @_;

    ...

    exit 0;
}