=pod

Datei einlesen

  $dateiname    Dateiname der einzulesenden Datei
  $daten        Puffer für eingelesene Daten
  $fh           Dateihandle für eingelesene Datei

=cut

my $dateiname = 'com_eins.data';
my $daten;
{ 
# Datei öffnen
open (my $fh, '<', $dateiname) or die "Kann Datei $dateiname nicht oeffnen : $!";
# Eingabezeilentrenner ausschalten, damit Datei in einem Rutsch gelesen wird
local $/ = undef;
# binäres Einlesen von Daten aktivieren
binmode $fh;
# Datei in Puffer einlesen
$daten = <$fh>;
}

=pod

Daten an COM-Port ausgeben

  $comport      Name des seriellen Geräts (als Datei)
  $daten        Puffer für auszugebende Daten
  $porth        Dateihandle für serielles Gerät

=cut

my $comport = 'COM1';

# Serielles Gerät als Datei öffnen
open( my $porth, "+>$comport" ) or die "Kann Schnittstelle $comport nicht oeffnen: $!";
# auf binäre Ausgabe umschalten an serielles Gerät
binmode $porth;
# Puffer ausgeben
print $porth $daten;
close ($porth) or die "Kann Schnittstelle $comport nicht schliessen: $!";