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