#!/usr/local/bin/perl -w

use strict "vars";
#-----------------------------------------------------------------------------
my $Index;

$| = 1;

foreach $Index (1..3) {
    print("Output $Index 1 from $ARGV[0]\n");
    print("Output $Index 2 from $ARGV[0]\n");
    print("Output $Index 3 from $ARGV[0]\n");
    sleep($ARGV[0]);
    }
#-----------------------------------------------------------------------------