use strict;
+our $VERSION = '$Revision$';
+$VERSION =~ s|[^\d\.]+||g;
+
our $root;
# search local then perl directories
gtk_create_main_screen();
-$main->set_title("gtkconsole - The DXSpider Console - $call");
+$main->set_title("gtkconsole $VERSION - DXSpider Console - $call \@ $host:$port");
# connect and send stuff
my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port);