#!/usr/bin/perl
$\ = "\n";
$SIG{INT} = sub { print "SIGINT" };
print time;
sleep();  # Sleep forever
print time;