open(MYFILE, "sticky.log"); $i = 0; while ( ) { print; $i++; } print "\n$i lines\n";