Yes, the $^O variable is what you're looking for. (That's a caret and a capital o.)

if ($^O =~ /Win32/i) {
  do this;
} else {
  do that;
}
[download]

Head on over to perlvar to read more about this special variable.