With error checking:

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

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

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

my $mtime = -M _;
[download]

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