...
my @results =  stat( $filename );
my $size = $results[7];

##</code><code>##

perldoc -f stat