Perl file processing example