Help for this page
open(COM,"< /dev/ttyS0")
#!/usr/bin/perl + + + + ... undef $ob; + + + + #we are done dude