my $gadfly = $sock qq(dbuserid Satan);
print $sock qq(kick $gadfly);