use Time::HiRes qw(gettimeofday tv_interval);
$clock = [gettimeofday];

$SIG{INT} = sub {
$clock = tv_interval($clock);
	print "$clock\n";
exit;
};


sleep 10000;