$HOME/bin
$HOME/Upd/Common

##</code><code>##

BEGIN {
my $perl_failed = $@;
my $HOME = "/home/Z001T7BX";



   $ENV{PERL5LIB} .= ":$HOME"; # for child processes
    push @INC, $HOME;           # for this process

  unless ( grep m{\A${HOME}/bin}, split(":", "$ENV{PATH}") ) {
    $ENV{PATH} .= ":$HOME/bin"; # for child processes
  }
  $ENV{HOME} = $HOME;       # for child processes
}

use Upd::Common::System;

my $pid;
$pid=getRemoteProcessIds (10.255.22.69, "HUDSON", 4711);