Perl sigtrap to capture signal, print and exit.

sigtrap.pl

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

use sigtrap qw(handler signal_handler normal-signals);

my $time = 0;

while(1){
	$time = time();
	print time() . "\n";
	sleep 1;
}

END {
	print "CTRL+C\n";
}

sub signal_handler
{
	exit();
}