DVG

===== reboot DVG via telnet =====

  #!/usr/bin/perl
  use Net::Telnet;

  $connect = new Net::Telnet(Timeout => 10,
                                  Host => '192.168.99.15');
  $connect -> waitfor('/User:/');
  $connect -> print('admin');
  sleep 1;
  $connect -> print('admin');
  sleep 2;
  $connect -> print('RESTART');
  sleep 1;
  $connect -> print('Y');
  sleep 1;
  $connect -> print('');

=== DVG CPT ===
FORWARD

BTC SVS

BTC UFA