defined( my $s = ( stat( $qfn ) )[ 7 ] )
   or die( "Can't stat `$qfn`: $!\n" );

... $s ...