if ($^O eq "MSWin32") { print ("begin\n"); my $win32 ="Win32.pm"; require $win32; import $win32 qw(GetOSName); }