File size 

my $filename = '/etc/X11/rgb.txt';

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

say "Size of $filename is $size bytes";