{
use Data::Dumper;
local $Data::Dumper::Purity = 1;
my $sock = $NetDevice[$NetDeviceID]{"Socket"};
print "DEBUG\n";
print "--------------------------------------\n";
print Dumper($sock);
$Response=<$sock>;
print Dumper($Response);
print "--------------------------------------\n";
}