eval { execeptionalWithoutReturnValue(); 1; } or do { my $exception = $@; ... };