*) ($money > '125') Die ' sind überflüssig (solche Stellen hast Du mehrfach drin).

*) print gettime(); print("DEBUGGING ENDED\n"); ist Perl4-Style. Schreibe besser print gettime(), "DEBUGGING ENDED\n";

*) Du hast häufig mehrere Statements und/oder if-Blöcke in einer Zeile. Zieh' das auseinander -- wird besser lesbar. Also statt if ($DEBUG == '1') { print("DEBUGGING ENDED\n");} einfach if ($DEBUG == '1') {
print("DEBUGGING ENDED\n");
}

*) statt if ($DEBUG == '1') { print("DEBUGGING ENDED\n");} kannst Du auch einfacher $DEBUG and print "DEBUGGING ENDED\n" schreiben...

*) my @shopsite = $agent->content; -- content liefert nur einen String, oder?\n\n

<!--EDIT|renee|1183377397-->