Cleanup Perl