#!/usr/bin/perl

use strict;
use warnings;

my $ME = $0 ;
$ME =~ s@^\.\/|\/.*\/@@g;
$ME =~ /myscript.pl/ and die ("\n Please dont call me directly!\n\n");

my %workerscripts = ( 'worker01'  => \&worker01,
                      'worker02'  => \&worker02,
                      'worker03'  => \&worker03
                    );

my $real_command  = $workerscripts{&findME};
&$real_command;



#---
sub findME
{
   while ( my($k,$v) =  each %workerscripts )
   {
      return $k if $k =~ /$ME/ ;
   };
};

sub worker01
{ print "worker01 was called\n"; exit 0; };

sub worker02
{ print "worker02 was called\n"; exit 0; };

sub worker03
{ print "worker03 was called\n"; exit 0; };