#!/usr/bin/perl
use warnings;
use strict;

for my $step (1..4) {
   sleep 3;
   print "Step $step\n";
}