use Win32::SerialPort 0.05;
use strict;

my $dir = $ARGV[0];
my $count = $ARGV[1];
my $serial_port = "COM1";

my $serialobject;
unless ($serialobject = Win32::SerialPort->new ($serial_port)) {
    printf "could not open serial port";
    exit 1;
}

$serialobject->baudrate(2400)		|| die "bad baudrate";
$serialobject->parity('none')		|| die "bad parity";
$serialobject->databits(8)		|| die "bad databits";
$serialobject->stopbits(1)		|| die "bad stopbits";
$serialobject->write_settings		|| undef $serialobject;

my $pos=$dir.chr($count);
$serialobject->write($pos);
my $in;
while (!$in)
{
	$in=$serialobject->input();
	print $in;
};

undef $serialobject;