0  'gup.pl ; cd /and/updates'
1  'ck.pl; cd /and/release/runtime'

##</code><code>##

 my ($run_cmd, $chdir_cmd) = split(';',$run[$element],2);

##</code><code>##

DB<3> x $chdir_cmd
0  ' cd /and/updates'

##</code><code>##

$chdir_cmd =~ s/'/"/g;

##</code><code>##

sub ch_dir
{
    my ($cmd) = @_;
    $cmd =~ s/cd //;
    chdir($cmd) || die $!;
}


##</code><code>##

my $ cmd = "cd /and/updates";
ch_dir($cmd);