#!/usr/bin/perl -w
use IO::Socket;

$remote = IO::Socket::INET->new(
	Proto => "tcp",
	PeerAddr => "localhost",
	PeerPort => 7634,
	);

$line = <$remote>;
close $remote;

$line =~ s/^\|//;
$line =~ s/\|C/C/g;
$line =~ s/\|\|/\n/g;
$line =~ s/\|/\ /g;
print "$line\n";