#!/usr/bin/perl -w
# Programme test2.pl
# chmod a+x test2.pl; ./test2.pl
use warnings;
use strict;
my $B=1;
while($B>0)
  {
  print("Borne:? ");
  my $input=<STDIN>;
  $B=int($input);
  my $I=1;
  while($I<=$B)
    {
    my $C=$I**2;
    my $R=sqrt($I);
    print("I= $I I^2= $C I^1/2= $R\n");
    $I++;
    }
  }
print("Fin du programme test2.pl\n");