if Operation mit einem Scalar und einem fix-Wert

[Matti Maekitalo]

Tach auch.

my $Abus = <FIRSTCONTROL>;
print $Abus;
if($Abus eq "busy"){

in $Abus wird dann sowas drinstehen wie etwa "busy\n" (oder ein deinem System angepasster Zeilentrenner), kurz: es ist ein Zelenendezeichen am Stringende.

perldoc -f chomp

Bis die Tage,
Matti