Perl Autorooter