print '@run:', join ', ', @run, "\n";
print "\$element: $element\n";
my ($cmd, $chdir) = split(';',$run[$element],2);
print "\$cmd: $cmd\n";
print "\$chdir: $chdir\n";