my $dir=sprintf("%s/%s/%s/%s/%s",
                 $params->get("Backup.Root.Dir"),
                 $server,
                 $params->get("Server.Name"),
                 $cltdb,
                 $type);


my $remotecmd = `rsh $server mkdir -p $dir`
    or $app->error($FATAL,"Can't make directory [ $dir ]::$DBI::errstr");