# Separate file - spawn client.

print "$0: Starting.\n";
print "$0: Reading in variables...\n";
while(<STDIN>){
    eval($_);
    print "$0: \t$_";
}
print "$0: Finished reading variables.\n";
print "$0: Dumping variables...\n";
foreach $Temp (keys(%Data)){
    print "$0:\t$Temp=$Data{$Temp}\n";
}
print "$0: End.\n";