print "<h1> <br> HOLA  !!!!!!!!!!!!!!!!!!!!";
print "<h2> $task $DirInstall $ENV{'FOREIGN_ROOT_DIRECTORY'} $ostr $hostname <br>";
print "<h2> $text{index_title} -- ".`pwd`."  <br>";

 @line=split(/\//, $ENV{'FOREIGN_ROOT_DIRECTORY'}, -1);
 $nomf=$line[$#line];
 print "<br><h1> -- $nomf ---";
 $str="sh $DirInstall/tmp/$task.sh";
 &run_cmd($str);

1;
