#!/usr/bin/perl -w

use strict;

my $i;
for($i = 0; $i < 100; $i++) {
     print "I will use strict and warnings.\n";
};