I stripped down all unnecessary content and after a while fighting with the problem I realize that I have net::ftp module installed from Ubuntu repository, so, just in case I uninstalled and reinstalled from CPAN and problem solved, to be honest I did a lot of change but i'm pretty sure that was problem

Thank you Ken for your response was really useful and I have changed the ugly goto logic to a more readable infinity while ;-)