#!/usr/bin/perl

our $sig;  # same for my $sig

$SIG{INT} = \&handler;

sub handler {
    print "got SIGINT\n";
    $sig++;
}

until ($sig) {
    print "running...\n";
    sleep 1;
}
print "terminated.\n";