Perl lab done.