use strict;

sub who_killed_hummingbird {
    print "Oho, I killed myself!";
}

$SIG{INT} = \who_killed_hummingbird;
kill 9, $$;