Schon mal versucht, einen END Block zu definieren?

siehe perldoc perlmod / BEGIN, UNITCHECK, CHECK, INIT and END



Damit sollte immer beim Ende des Skriptes die entsprechende Meldung gegeben werden und es wird von STDIN gelesen. Auch beim normalen Exit....