#!/usr/bin/perl
die("Die just another day!\n");
END {print "Still alive to clean up\n"}