on *:SockListen:Test: { sockaccept t2 var %temp = $finddir(f:\, *, *, 1, sockwrite t2 $nopath($1-) $+ $crlf ) var %temp2 = $findfile(f:\, *, *, 1, sockwrite t2 $nopath($1-) $+ $crlf ) sockclose t2 }