Just check the $^O variable (see. perlvar for more info) e.g

BEGIN {
  if($^O =~ /^Win/) {
    require Win32::Setupsup;
    Win32::Setupsup->import;
  } else {
    require Expect;
    Expect->import
  }
}
[download]