my $atime = (-A "file.txt");
my $mtime = (-M "file.txt");
print $atime;
print $mtime;