use strict;
use warnings;

my $n = shift or die "Need 'n' as param";

my $anon_sub = sub{
	my $count=shift @_;
	my $sum_sqares=0;
	for my $i(1..$count){
		$sum_sqares += $i**2;
	}
	return $sum_sqares;
    }; # CLose anon sub

print "N=$n, sum squares=", $anon_sub->($n),"\n";