package TIE;


sub TIESCALAR {
    my $class = shift;
    my $code = shift;
    return bless \$code => $class;
}


sub DESTROY {
	${$_[0]}->();
    undef ${$_[0]};
}


package BlockExit;

sub do {
	my $var;
	tie $var, 'TIE', shift;
	return \$var;
}


package main;


if (1) {
	my $onExit = BlockExit::do(sub { say "RAUS!"; });
	say "DRIN";
}

say "DRAUSSEN";