$mtime=(stat ( $ARGV[0] ))[9]; # mtime is 9 , atime is 8!!

##</code><code>##

#!/usr/bin/perl -w
use strict;

my $mtime = (stat ( $ARGV[0] ))[9];

print "$mtime\n";

open ( F , '>>' ,$ARGV[0] );
print F 'japh';
close F;

utime $mtime, $mtime, $ARGV[0];

$mtime = (stat($ARGV[0]))[9]; ## Update, this is supposed to be a 9 REALLY
print "$mtime\n";