Help for this page
if (-s $file) { my $size = (stat $file)[7];
my $size = -s $file; if ($size) { . . . }