open(SAVEOUT, ">&STDOUT");
open STDOUT, ">>$serverdir/ss_log";
my $result = SmartSockets::projpoll($server_name);
print "Connection to smartsockets updated.\n";
close STDOUT;
open(STDOUT, ">&SAVEOUT");