#!/usr/bin/perl

use strict;
use warnings;

$SIG{'INT'} = \&print_var;

my $i = 0;
$i++ while 1;

sub print_var {
    print $i . "\n";
}