BEGIN {
    if(  $^O =~ /Win32/i  ) {
        eval 'use Win32::SerialPort qw(:ALL); 1;'
            or  die $@;
    } else {
        eval 'use Device::SerialPort qw(:ALL); 1;'
            or die $@;
    }
}

##</code><code>##

$mod= "Junk::Stuff";
eval "require $mod; 1;"
  or  die "$@";
$obj= $mod->foo("bar");