#!/usr/bin/env perl

use Net::Telnet;

print "reporting end of web server log files:\n";

my($input_log, $output_log, $dump_log);
$input_log="./input_log.log";
$output_log="./output_log.log";
$dump_log="./dump_log.log";

$hostname = "127.0.0.1";
$telobj = new Net::Telnet (-host => $hostname
                        ,-port => 23
                        ,-dump_log  => $dump_log
                        ,-input_log  => $input_log
                        ,-output_log  => $output_log
                        ,-telnetmode => ''
                        ,-prompt => '/^]/'
                        );
$rad = $telobj -> cmd ("get sn");
pop @rad;
chomp @rad;
print "\n";

$telobj -> close;