sub pc93
{
my $to = shift; # *, callsign, chat group name, sysop
my $from = shift; # from user callsign
my $via = shift || '*'; # *, node call
my $line = shift; # the text
sub pc93
{
my $to = shift; # *, callsign, chat group name, sysop
my $from = shift; # from user callsign
my $via = shift || '*'; # *, node call
my $line = shift; # the text