#!/bin/perl -w

use strict;
my $pr=$0;
for(1..10){
  $0=$pr." processing $_";
  sleep 5;
}