use warnings;
use strict;
use Socket;
use Win32::OLE qw(in);
use Win32::TieRegistry;
use Time::HiRes qw( time gettimeofday tv_interval );