Consider writing a bourne shell script or a small C program that you run from backticks/qx/system in your main Perl program. Inside this subprogram, set the alarm and run your ping. I think that will put the signal handling where it belongs.