my $telnetObj = new Net::Telnet (Timeout => 20, Prompt => '/[^ <-]\>/', Errmode => "return") ; my $tmp = $^W ; local($^W) = 0; $telnetObj->open(Host => $gw_in_addr) ; #offending code in here $^W = $tmp;