#!/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";

##</code><code>##

running...
running...
running...
got SIGINT
terminated.

##</code><code>##

$ uname -a
SunOS solaris10 5.10 Generic sun4u sparc SUNW,Sun-Blade-2500

$ perl -v

This is perl, v5.8.4 built for sun4-solaris-64int
(with 27 registered patches, see perl -V for more detail)
(...)