#!/usr/bin/perl -w

open (SER, "+</dev/ttyS0");
  print SER "12345678";
close SER;

print "jj\n";