#!usr/bin/perl
print "How to work out the area of a square?\n";
print "What is the length of 1 side of the square?\n";
$length=<STDIN>;
print "The area of your square is ";
print $length**2;
print "\nLaters biatch :)  DTL(C)";