#!/usr/bin/perl -w

# Controls HalfY matrix switch
# Switches both levels (audio and video)

use strict;

use Device::SerialPort; 

my $port = Device::SerialPort->new("/dev/ttyS0");

$port->baudrate(9600);
$port->parity("none");
$port->handshake("none");
$port->databits(8);
$port->stopbits(1);
$port->read_char_time(0);
$port->read_const_time(1);

# send data out
$port->write("CL1I1O1T");
print "TV input now from mythTV\n";
$port->write("CL2I1O1T");