in reply to Program for Windows and Unix

The variable to test this is called $^O, you can test for different values. For example:

if ($^O eq "MSWin32") { # Do Windows stuff }

See perlvar for details.