File size 

use File::stat;

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

my $st = stat($filename);

say "Size of $filename is ", $st->size, " bytes";