MAIN:
{
    my $result = 0;       # normal termination

    eval
    {
        ...               # main code goes here
    }

    $result = 1 if $@;    # abnormal termination

    exit $result;
}