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