#initial SerialPort to $configurationFileName;
$portCom1 = tie (*FH, 'Win32::SerialPort', $configurationFileName) || die "Can't tie: $^E\n";