# slave.pl:
use 5.014;
use warnings;
my $CleanExit = 0;
{
    package My::ScopeGuard;
    sub DESTROY {
        return if $CleanExit;
        say 'cleaning up slave.pl';
    }
}

# this is the object that will go out of scope
my $guard = bless {}, 'My::ScopeGuard';

say 'doing something';
die "Oh Noez";

# or if everything works fine:
$CleanExit = 1;