addcmd:^cd:(.+)$:eoc
my ($socket,$dir)=@_;
my $ok=chdir($dir);
return "ERR chdir $dir ($!)" unless $ok;
return "MSG: $dir";
eoc