Simple adserver in Perl