#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

$SIG{INT} = sub { say "Caught a signal"; exit 1; };

say "Program started";
say "Starting to sleep";
sleep 3;
say "I've been sleeping long enough";

END {
    say "I'm in the END block";
}