$ perl -MNet::Ping -le " print !! Net::Ping->new->ping( shift ) " localhost
1

$ perl -MNet::Ping -le " print !! Net::Ping->new->ping( shift ) " google.com


$ perl -MNet::Ping -le " print !! Net::Ping->new( qw/syn/ )->ping( shift ) " google.com
1