my $utc_module;
BEGIN {
    if ($^O =~ /win32/i) { # oder Win32, keine ahnung
        $utc_module = eval "use Win32::Something (...); 1;" || 0;
    }
    else {
        $utc_module = 0;
    }
}