my $size = -s $file; 
if ($size) { . . . }