Help for this page
open(T, "</dev/ttyS0") or die "unable to open for reading: $!\n"; open(T, ">/dev/ttyS0") or die "unable to open for writing: $!\n"; open(T, "+</dev/ttyS0") or die "unable to open for read-write: $!\n";