#!/usr/bin/perl -w
use strict;

my $got_int = 0;
$SIG{INT} = sub { $got_int++ };

while (1){
    print "Signal caught", exit if $got_int;
    print "I am here\n";
}