#!/usr/bin/perl

use Fcntl;
use strict;

my $line;

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

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

close COM || die "COM Reader Halted";