14 lines
121 B
Perl
14 lines
121 B
Perl
|
|
open(MYFILE, "sticky.log");
|
|
$i = 0;
|
|
|
|
|
|
while ( <MYFILE> ) {
|
|
|
|
print;
|
|
$i++;
|
|
|
|
}
|
|
|
|
print "\n$i lines\n";
|