#!/usr/bin/perl

use Fcntl;
use strict;

my $line;

open(COM, "cat /dev/ttyS0 |") 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";