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