my $q = new CGI;
my $filehandle = $q->upload("file");

my $fsize = -s $filehandle;

my $fsize_limit = 1000;

# Then you use conditional to check them:

if ($fsize > $fsize_limit) {

   # do whatever you want

}