#!/usr/bin/perl
# The channels.
# For a single channel chat, comment out all the channels.
# Or add channels if you want.
$channels[0] = 'English';
$channels[1] = 'Espaņol';
$channels[2] = 'Adult';
$channels[3] = 'Adulto';
my $thechannels = '';
if (@channels) {
$thechannels = "Channel \n";
$thechannels .= "\n";
}
print "Content-type: text/html\n\n";
print <