#!/usr/bin/perl

print "Square root: ";
chomp($x = <>);

$z = $x ** 0.5;
print "$z \n";