Okay thanks all, the problem is solved now. The error was that I didn't untaint $host, I got ($host) = $host =~ /^(.*)$/; now and everything works fine.

-----BEGIN PERL GEEK CODE BLOCK-----
Version: 0.01
P++>+++$c-> P6 >+R+>+M+>++O
>+MA+>+++E+>++PU+>+++BD C+>++D!S X!WP
>+++MO?PP++n CO?PO-o+G
A--OL!Ee---Ev++Eon!Eot!Eob!Eoa!uL++uB
uS!uH+uo+w---m!osA-osBE-
------END PERL GEEK CODE BLOCK------
[download]