#!/usr/bin/perl

use strict;
use warnings;
use CGI::Upload; 
use Number::Bytes::Human qw(format_bytes);
 
my $file = shift @ARGV;

my $upload = CGI::Upload->new;
$upload->file_name( "$file" );

my $h = Number::Bytes::Human->new();
my $h_size = format_bytes(-s $file);
print $h_size, "\n";