#!/usr/bin/perl -w                            

### For.pl

use strict;                                   

for ( my $i = 0; $i < 10; $i++ ) {
    printf "square of $i is %d\n", $i * $i;
}
