use Device::SerialPort;



use AnyEvent;



my $ ob = Device::SerialPort-> new ( '/dev/pts/2') || die;



my $main = AnyEvent->condvar;



$t = AnyEvent->timer( interval => 1, cb => sub {

    $tmp = $ob->read(1900);

    

    $tmp1 = substr($tmp, 3, 66);

    

    @s = split(/\s+/, $tmp);

    

    print $s[2] . "\n";

    

    });