Although it's the same difference, if you want to use a module, try File::stat.

#!/usr/bin/perl
use strict;
use warnings;
use File::stat;
 
my $file = shift;
my $st = stat($file);
my $size = $st->size;
 
print $size, "KB";
[download]