Removed the obsolete Perl code