Perl AutoPilot