if (-s $file)
  my $size = -s _;