#!/usr/bin/perl
use strict;
use warnings;

$|=1;

my $TERM = 0;

$SIG{'INT'} = $SIG{'TERM'} = sub { $TERM = 1; };
print "To terminate program, hit ctrl-^C\n";

print( join(' ', ()) );
sleep (1) until ($TERM);