#!/usr/bin/perl -Tw
use strict;

die "Let's Try to die.";

END {
	print "End block is being executed.\n";
	if ($@){
		print "We caught a call to die: $@\n";
	}
}