print "Please enter a number: "; my $num = <>; printf "Its square is %d.\n" => $num * $num if $num =~ /^\d+$/;