Perl quota module