#!/usr/bin/perl -l
use strict;
use warnings;

my $sig;

END
{
  local $?;
  print "Handling signal $sig" if $sig;
}

$SIG{INT} = sub { $sig = shift; print "Got signal $sig" };

{
  package Foo;
  sub new { bless [$_[1]], $_[0] }
  sub DESTROY { print shift->[0], "->DESTROY()"; sleep 2 }
}

my $foo = new Foo "foo";
my $bar = new Foo "bar";

print "Now press Ctrl-C";