the reason you $cl definition doesn't work for win32, is because of the value of $^O, you got it wrong. See http://alma.ch/perl/perloses.htm