my $errorlevel = system ("start /wait ping 192.168.1.1");
print "errorlevel".$errorlevel;