use File::Stat;
print File::Stat->new($file)->size(), "\n";