Nö habe alles einwenig gekürzt.

Das Problem lag weiter unten

system ($mount $share $mount_point);

habe ich durch :

system (qx($mount $share $mount_point));

ersetzt da :

system ("$mount $share $mount_point"); und
system ($mount $share $mount_point);

immer eine Division verursachten ....

Vielen Dank für eure Tipps

Denis\n\n

<!--EDIT|redpantyhose|1155287311-->