#!/usr/bin/perl -w

open (SER, "+</dev/cua00");
  print SER " 5317009 ";
close SER;

print "jj\n";