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

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