use if $^O =~ /Win32/, Win32::Foo => qw /arg1 arg2 arg3/;