Select Code to Download

use Net::Ping;
use Net::Telnet::Cisco;
...
    print "\nDevice OFFLINE!!  Connection aborted!!\n\n";
}
$p->close();

C:\perl scripts>perl regexp_test.pl --host 10.22.49.19

...

1 total voice PRI(s)
0/0/0