stat( $qfn )
   or die( "stat: $!\n" );

my $mtime = ( stat _ )[9];

##</code><code>##

stat( $qfn )
   or die( "stat: $!\n" );

my $mtime = -M _;

##</code><code>##

defined( -M $qfn )
   or die( "stat: $!\n" );