#!perl open(F, "<", "C:\\TEMP\\PT_TEST_STAT_EXP_export.log"); while ( ) { print "$_"; } close(F);