my $device_pkg = $^O =~ /Win32/
   ? 'My::SerialPort::Win32'
   : 'My::SerialPort::Linux';

eval "require $device_pkg" or die $@;

my $device = $device_pkg->new();
$device->do_something();