fuehre doch den code mal in der shell aus, und zwar in folgenden schritten:
1. perl -c scriptname.pl

2. perl scriptname.pl param1=value1 param2=value2

wenn da irgendwelche fehler oder warnungen rauskommen, poste die mal

nebenbei: exit 0; steht fuer einen fehlerfreien ablauf, nicht exit 1;

(wie lange bist du eigentlich schon in foren wie dem ehemaligen auf www.perl.de und hier unterwegs? langsam koenntest du doch wissen, dass man schneller hilfe bekommt, wenn man genaue angaben zum programm macht, fehlermeldungen usw. angibt.... oder?)\n\n

<!--EDIT|Strat|1064668377-->