my $size = do { local $^W; -f $local && -s _ };