#!/usr/bin/perl 
use warnings;
use strict;
# ladidadidi
print "Enter a number:\n" ;
chomp(my $input = <STDIN>);
my $squared=$input**2;
print "the input squared is $squared\n";
