Test file using Perl