stat( $qfn )
   or die( "Can't stat `$qfn`: $!\n" );

... -s _ ...