Read file using Perl