sub square 
{ 
    my $x = shift; 
    return $x**2; 
}
my $square_this = \□