Perl - test urządzeń sieciowych

Jak wyglądałby kod Perla proszący podanie adresu IP, po czym spingowałby urządzenie i zwrócił informacje czy host jest dostępny czy nie?

Piszę program i akurat musi być w perlu, liczę na małą pomoc.