Help for this page

Select Code to Download

Select or download this

my $dev = "/dev/ttyS0";
open(DEV,"+<$dev") or die;
system("/bin/stty <$dev 9600 cs8 -parenb -cstopb -crtscts clocal raw")
+;
# talk to DEV here
close DEV;