Помогите написать програму на Perl

[Guest]

Сума квадратов.
Можна ли число М представить в виде двух квадратов натуральных чисел.

 

[vital]

2 цикла.
i= от 1 до 9
j=от 1 до 9
if (i*i+j*j=M) {break;вывод на экран:можнно}