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 } [download]
See perlvar for details.