Also das ist aber seltsam!

Ist der Angle-Operator eine globale Variable? Nur so könnte ich mir die
Fehlermeldung erklären, da er ja in der Funktion SysInfo durch die while-
Schleife überschrieben wird.

Wenn ich nun entweder

foreach my $opt (qw/SysInfo/) { ...

oder

while (my $line = <FM>) { ...

einsetze, dann erhalte ich diesen Fehler nicht mehr.