use strict;
use warnings;


sub add{
	
	my ($x, $y) = @_;
	my $sum = $x + $y;
	print "Sum within function: $sum\n";	
	return ($sum);
}

my $bb=\&add(10,1); 
print $bb."\n"; 

my $cc=\&add; 

print $cc."\n";