use strict;
no strict "refs";
use Win32; # add this
use Cwd;
use File::Spec;
use IO::Socket::INET;
use feature ':5.10'; # add this
use Switch; # add this if you want to use given/when