sini@ordinalfabetix:~$ ./x.pl
        (in cleanup) Can't call method "setcflag" on an undefined value at /usr/lib/perl5/Device/SerialPort.pm line 482 during global destruction.
sini@ordinalfabetix:~$