#!/usr/local/bin/perl

$SIG{"INT"} = stopnum;
$num = 1;
while (1) {
        print ("$num\n");
        $num++;
}

sub stopnum {
        exit (0);
}
