Alright, I thought it would work this way, but I could not test anything as I am on a business trip with no Perl environment. So, my error, sorry, but it is quite easy to fix it by doing the things the other way arouind.