#!/usr/bin/perl

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

while ($len = sysread(COM, $buf, 16384))
        {
        print "READ[$buf]($len)\n";
        if ($len > 10)
                {
                system("./parse_smdr", $buf);
                }
        }

close COM || die "COM Reader Halted";