my $success = try {
  # Runs first
  1;
} catch {
  # Runs if exception occurs in try block
} finally {
  #  This code *always* executes
};

if ( $success )
{
  # Executes if try block *succeeds*
}