#!/usr/bin/perl -w

use warnings;
use Benchmark;

my $current_time = time();
my $filename = "test.txt";

sub file_open {
       open (FILE, "$filename");
       close FILE;
}

sub stat_change {
       utime($current_time, (stat($filename))[9], $filename);
}

timethese(3000000, {'openfile' => file_open(), 'changestat' => stat_change()});