if ($postSplit[0] eq "/join") { #Check for erros if ($postSplit[1] eq "") { &error("Incorrect format must me /join #channel"); } # Begin Error Routine # Used to simplify error reporting sub error { my $error = $_[0]; my $errorMessage = "*** ERROR *** $error *** ERROR ***"; # Our standard Error message $scrolledText -> insert('end', "$errorMessage"); # Insert the Error into the listbox } # End Error Routine