There's another way to sleep that doesn't use SIGALRM. Try this:

  select (undef, undef, undef, $time_to_sleep);
[download]

The Time::HiRes module also provides an alarm-free interface to nanosleep if your system supports it.