my $size = -s $file;

##</code><code>##

use File::stat;
my $st = stat($file);
my $size = $st->size;