$filename = 'file.txt';

open FILEHANDLE, "<$filename";

($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
    $mtime, $ctime, $blksize, $blocks) = stat(FILEHANDLE);

print "$filename is $size bytes long.";