CGI File size

$filename = "file.txt"; # your filename
my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime,
$ctime, $blksize, $blocks) = stat $filename;

print "Size: $filename bytes = $size\n";