You can also use Devel::DProf to find out in which subroutine the code needs so much time... e.g. write to the header something like

#! /usr/bin/perl -d:DProf
[download]

then run the script (needs write access to the current directory), and evaluate the trace with dprofpp -T or the like