Added a test Perl file