unless ($goaction) { $goaction = 'list' ; } print < $useropts{title}
ENDOFTEXT #