package Square;
sub square 
{ 
    my $x = shift; 
    return $x**2; 
}