#!/usr/bin/perl

use strict;
use warnings;

eval{
   die 7;
} or do{  die "died with $@" };