Something

    if (-f $domainfile) {
	open DOMAIN, "$domainfile" or die "Could not open $domainfile: $!\n";
	
	my $remote = <DOMAIN>;
	chomp $remote;
	close(DOMAIN);
	unlink $domainfile;
	my $remote_iaddr = inet_aton($remote);
	if($remote_iaddr) {
	    $remote_paddr = sockaddr_in($remote_port, $remote_iaddr);
	    
	    my $server = IO::Socket::INET->new( Proto     => 'tcp',
						LocalPort => $local_port,
						Listen    => SOMAXCONN,
						Reuse     => 1);
	    
	    
	    $baseurl = $remote;
	    my $local_socket = $server->accept();
	    proxyrun($local_socket);
	    close($local_socket);
	} else {
	    print "Proxy did not detect address for $remote\n";