#!/usr/bin/perl

use SERIAL;
use POSIX;

print STDOUT "Usage: man_connect /dev/ttyS0 19200 ATDT3034978037\n";
if( $#ARGV != 2 ) { die "Wrong number is Arguments\n"; }
if ( ! drop_dtr( $ARGV[0] ) ) { print STDERR "Drop DTR failed.\n"; }

print STDERR "Dropped DTR\n";

die "Could not open\n" unless defined( $fd = 
	open_serial_port_nodtr($ARGV[0], $ARGV[1], "8N1") );

print STDERR "Opened at $ARGV[1] baud\n";

$call = "$ARGV[2]\x0d\x0a";

print STDERR "Calling $ARGV[2]\n";

$bytes = POSIX::write($fd, $call, length($call));
