Select Code to Download

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;