waiting for others answers, just shooting in the dark: try to print also the OS error in your die clause: || die "couldn't open COM1 $^E";

Then you can imports some useful constants (see also Operating methods) from the module, which inherit from Win32API::CommPort

Search here at the monastery for other useful examples, some one very recent as How to read serial port with WIN32:SerialPort?

L*