There are X servers available for windows, which would allow this to work, but I don't know of any free ones off-hand (a google search is bound to turn up at least a couple). There is also a free (open-source?) package called "VNC", which would involve running a special "server" process on the linux box, and connecting to that server from the windows box -- it puts up a "client" window on your local machine and inside that window it's as if you're on an X display connected to the remote host -- you use something like a .xinitrc to launch whatever you want within that window on connection (xterm, etc). Pretty cool, but there is a lot of overhead that might make it go slower than you want. (Sorry not to do the google look-ups for you, but these are OT issues, after all...)

Let's see if I get this... The windows box runs ssh (in command prompt window? via some windows app like SecureCRT?) to connect to a linux box and run a perl/tk app in linux, and you want the perl/tk window to show up on the windows screen. Is that it?

He could be using any ssh client, most likely ttssh, Putty, or openssh (via cygwin or mingw). Regardless, my understanding was that he wanted the app to realise that X11 won't work and revert to a text interface. (xclock under those circumstances will die, but emacs will happily run as if in a terminal, provided your ssh app's terminal emulation is good and you don't try to resize the window; I think he wanted something like the latter behavior).

At worst he could add a command-line argument --nogui (or whatever), but it ought to be possible to detect and handle the problem, like Emacs does.

There are X servers available for windows, which would allow this to work, but I don't know of any free ones off-hand

The best free one I know about is XFree86. Last I knew (which was months ago) you had to install cygwin to run XFree under Win32, because it hadn't been ported to compile under mingw yet. I don't know whether that's still true.

Some day, someone will write an open-source X server in Perl and throw it up on CPAN...

sub A{while($_[0]){$d=hex chop$_[0];foreach(1..4){$_[1].=($d
%2)?1:0;$d>>=1;}}return$_[1];}sub J{$_=shift;while($_){$c=0;
while(s/^0//){$c++;}s/^1//;$_[1].=(' ','|','_',"\n",'\\','/'
)[$c]}@_}$PH="16f6da116f6db14b4b0906c4f324";print J(A($PH));
[download]

Not really related to the question, but VNC is a great package, so here are some URLs. There are actually two different implementations of VNC, Tight VNC is a cleaned-up fork of the original code, and Real VNC is a continuation of the now-defunct AT&T project maintained by the original developers.