#!/usr/bin/perl
open (OUTFILE, ">/dev/ttyS0");
print OUTFILE ("ATDT132W4W1111\n");
print OUTFILE ("ATH\n");
close OUTFILE;