use strict;
use warnings;

my $t0 = time();
for (1..10) {
	open(F, "<:utf8", "noname2.txt");
	while (<F>) {
		;
	}
	close(F);
}
print time() - $t0;

##</code><code>##

use strict;
use warnings;

my $t0 = time();
for (1..10) {
	open(F, "<", "noname2.txt");
	while (<F>) {
		;
	}
	close(F);
}
print time() - $t0;