#!/usr/bin/perl -w

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

print "jj\n";