$telnet->print('version');							@output = $telnet->waitfor('/#.*$/i');						@output1=split(/\n/,$output[0]);
$main->AddTextfield(-text => @output1, -pos  => [ 10, 250 ], -size => [ 400, 900], -font => $font, -foreground => [0, 0, 250], );