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

##</code><code>##

1227543323
SIGINT
1227543325