use strict; if ($^O =~ /MSWin32/) { my $res = eval "use Win32::Service"; die $@ if $@; die "Win32::Service did not return a true value" unless $res; # do Windows code } else { # Assume Unix, even though there are other platforms # do Unix code };