#!/usr/bin/perl -w
use strict;
open(IN, 'cu -l cuaU0 -s 4800 |') or die 'unable to connect';
while (<IN>) {
    print;
}
close IN;