### LIGHTS ON/OFF CODE###

sub leftefzeroone {
$button53->configure(-text => 'F0 - Left Lights On');
$button53->bind('<ButtonPress>', \&leftefzerotwo);

my $tlightson = "<f 1108 144>";
$port->write($tlightson);
$port->lookclear();
}

sub leftefzerotwo {

$button53->configure(-text => 'F0 - Left Lights Off');
$button53->bind('<ButtonPress>', \&leftefzeroone);

my $tlightsoff = "<f 1108 128>";
$port->write($tlightsoff);
$port->lookclear();
}

### BELL ON/OFF CODE###

sub leftefoneone {
$button54->configure(-text => 'F1 - Left Bell On');
$button54->bind('<ButtonPress>', \&leftefonetwo);

my $tbellon = "<f 1108 136>";
$port->write($tbellon);
$port->lookclear();
}

sub leftefonetwo {

$button54->configure(-text => 'F0 - Left Bell Off');
$button54->bind('<ButtonPress>', \&leftefoneone);

my $tbelloff = "<f 1108 128>";
$port->write($tbelloff);
$port->lookclear();
}