Source Code for Perl Oasis