use strict;
  use warnings;
  
  my $blessed_junk = testIt->new();

  print "Time to exit outa here...\n";
  exit 0;

sub END
{
  print "THE END!\n";
}

package testIt;

sub new
{
  my $junk = {};
  bless $junk;
  return $junk;
}

sub DESTROY
{
  print "I'm dying!\n";
}

##</code><code>##

Time to exit outa here...
I'm dying!
THE END!