A Perl script to test access controls on large web applications