put back Perl cleanup