You might also like to take a look at the fping utility. It's designed to do what you're after and you can easily call it from Perl with backticks.