$PortObj = tie (*FH, 'Device::SerialPort',$Config_File) || die "Can't tie: $!\n";
$char = getc FH;