my $t = new Net::Telnet(timeout => 10, input_log => $file, Prompt => "/\[AAUA1\]/");