stopper - aber wie?

[Gary]

Hi Matti

Das Programm springt an die Stelle, wo die Prozedur aufgerufen wurde

Mist, daß dachte ich mir. Es sieht so aus:
------------------------------------------------------
if($Abus eq "busy"){
                   close (FIRSTCONTROL);
                   Besetzt();
                   }

exit(0);  # <<-- Hier muss ein Stopper rein! z. B. Exit? <<

if($Abus eq "free"){
                   seek(FIRSTCONTROL, 0, 0);
                   print FIRSTCONTROL "busy";
                   close (FIRSTCONTROL);
                   }
------------------------------------------------------

Kann ich das so machen? Laut Perldoc ist der Wert in der Klammer für alles in Ordnung eine "0" also "exit(0);

Gruß Gary