#!/usr/bin/perl -w
#Telnet Script to read the OWW tcp port and write the output to a file for upload to the net
#
#
use Net::Telnet ();
use Cwd;

open my $fh, '>', '/home/Smitty/scripts/perl/WLStickers.txt' or die $!;


{
    $t = new Net::Telnet (Timeout => 10,
                   Output_log => $ofile);

    
    $t->open("127.0.0.1 8891");
    
    $t->close;
}


exit 0