use Test::LeakTrace;

{
    my $result;

    leaktrace
    {
        $result = main();
    };

    exit $result;
}