if($^O =~ /mswin/i){
        print "huhu, Windows!\n";
        eval{
                require HottenTott;
        };
        if($@){
                print "Noee, no way!\n";
        }
        else{
                import HottenTott;
        }
}