if (-s $file)  { 
my $size = (stat $file)[7]; 

##</code><code>##

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