use strict;
use warnings;

$| = 1;
# ttyS0 bei Linux entspricht COM1 bei Windiws
my $port = "/dev/ttyS0";	

# Mit dem Linux-Kommando 'stty' die Port-Einstellungen setzen
system "stty 2400 ixon -echo < $port";

# Port als Datei zum Lesen und Schreiben öffnen
open(COM, "+>$port") or die "Oops $port: $!\n";

# Datei auch auf ungepuffertes Schreiben setzen
select(COM);
$| = 1;
select(STDOUT);

# Sendet Q1 an die USV zur Statusabfrage
# die USV mag kein normales Newline, sondern
# nur ein Carrage-Return
print COM "Q1\r";	
# 2400 BPS sind recht langsam
sleep(1);
# Antwort einlesen
sysread(COM, my ($line), 50);
# Ausgabe auf Console
print $line, "\n";;
close(COM);