#com1 öffnen
use Win32::SerialPort;
$port="com2";