C:\>perl -de 1

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main::(-e:1):   1
  DB<1> use Net::Ping;

  DB<2> $tcp = Net::Ping->new('tcp');

  DB<3> print +($tcp->ping('4.2.2.2') ? "Up\n" : "Down\n");
Up

  DB<4> $icmp = Net::Ping->new('icmp');
icmp socket error -  at (eval 11)[C:/Perl/lib/perl5db.pl:628] line 2

  DB<5> print "$]\n";
5.008006

  DB<6> q