root@linux5 root# perl -W tt.pl 
(in cleanup) Can't call method "setcflag" on an undefined value at /usr/lib/perl5/site_perl/5.8.0/Device/SerialPort.pm line 541 during global destruction.