#! /usr/bin/perl -w -T

use strict;

my $var;

($var,$SIG{INT}) = voodoo();

sub voodoo {
        my $thing ;
        my $sub = sub {
                my $blob = \$thing;
                print $$blob."\n";
                exit;
        };
        return (\$thing,$sub);
}

for (my $i=0; $i<60 ;$i++) {
        $$var = $i;
        sleep 1;
}