#!/usr/bin/perl

sysopen(COM, "/dev/ttyS0", O_RDONLY | O_NDELAY | O_NOCTTY) or die "can
+'t open /dev/ttyS0: $!";

while(defined ($line=<COM>))
        {
        if (length $line > 1)
                {
                #print "read[$line]\n";
                system("./parse_smdr", $line);
                #goto breakout;
                }
        }

breakout:

close COM || die "COM Reader Halted";