I tried it with CGI.

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use Number::Bytes::Human qw(format_bytes);

my $filename = '/root/Desktop/moon.jpg';
my $query  = CGI->new(-s $filename);
my $size = format_bytes($query->keywords);
print $size, "\n";
[download]