[kcbanner@kc lib]$ perl SM/Server.pm 
$data = '';
$packet = undef;
$data = '';
$packet = undef;
$data = 'p';
$packet = undef;
$data = 'a';
$packet = undef;
$data = 't';
$packet = undef;
$data = 'r';
$packet = undef;
$data = 'i';
$packet = undef;
$data = 'c';
$packet = undef;
$data = 'k';
$packet = undef;
$data = '';
$packet = undef;
$data = 'm';
$packet = undef;
$data = 'y';
$packet = undef;
$data = 'S';
$packet = undef;
$data = 'e';
$packet = undef;
$data = 'c';
$packet = undef;
$data = 'r';
$packet = undef;
$data = 'e';
$packet = undef;
$data = 't';
$packet = undef;
$data = 'P';
$packet = undef;
$data = 'a';
$packet = undef;
$data = 's';
$packet = undef;
$data = 's';
$packet = undef;
$data = '';
$packet = undef;