#!/usr/bin/perl -w

my $num=1;

foreach(1..5) {
  print "PRINT: $num\n";
  $num++;
  sleep 5;
}