Perltidy is your friend. It'll help with the inconsistent indentation and long lines. It'll also help with your inconsistent and sometimes cramped spacing between elements. For instance,

my($IMGURL)=$1;
[download]

my ($IMGURL) = $1;
[download]

if(my($req)=$http->request($IMGURL)){
[download]

if ( my ($req) = $http->request($IMGURL) ) {
[download]

-sauoq
"My two cents aren't worth a dime.";