use Test::LeakTrace;

{
    my $result;

    leaktrace
    {
        $result = main();
    };

    exit $result;
}

##</code><code>##

print "Failed to install service: $!\n";

##</code><code>##

print 'Failed to install service: ',
       Win32::FormatMessage(Win32::Daemon::GetLastError()), "\n";