#!/usr/bin/perl -w

use strict;

my $port = "/dev/ttyid1";

open(DEV, ">$port")

    || die "Cannot open $port: $_";

system("stty -f $port clocal cs8 -hupcl -cstopb

cread -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -ixoff -onlcr

 -ocrnl -oxtabs");

system("stty -f $port 19200");

print DEV "Hellow Word!";

close DEV;

#!/usr/bin/perl -w

use strict;

my $port = "/dev/ttyid0";

my $s;

open(DEV, "<$port")

    || die "Cannot open $port: $_";

system("stty -f $port clocal cs8 -hupcl -cstopb

cread -parmrk -inpck -istrip -inlcr -igncr -icrnl -ixon -ixoff -ixoff -onlcr

 -ocrnl -oxtabs");

system("stty -f $port 19200");

while(1){

 while(defined($s = )){

  print "->$s";

 };

};

close DEV;