my $rethrow;
try {
     die "test";
     CATCH {
         say $!;
         $rethrow = $!
     }
}
die $rethrow;