use strict;
my $linenum = 1;
my $altnum = 1;
my $bgc;

# open(FILE, "<data/data.txt");
# my @lines = <FILE>;
my @lines = <DATA>;
# close(FILE);

# prints out table header
print "<center><table border=\"0\" cellpadding=\"3\" width=\"596\" bgcolor=\"#000080\"><tr><td bgcolor=\"#000050\" colspan=\"2\">Free Host Name<\/font><\/td><td bgcolor=\"#000050\" align=\"center\">Space<\/font><\/td><td bgcolor=\"#000050\" align=\"center\">Uploads<\/font><\/td><td bgcolor=\"#000050\" align=\"center\">Forced Ads<\/font><\/td><td bgcolor=\"#000050\" align=\"center\">Scripts<\/font><\/td><td bgcolor=\"#000050\" align=\"center\">Features<\/font><\/td><\/tr>\n";        

foreach my $item (@lines[9..19]) {

    my @thisArray = split(/\|/, $item); 

    # just alternating td bgcolor with these next two lines
    if ($altnum eq "1") { 
       $altnum = 0;  
       $bgc = "#000080"; 
    } elsif ($altnum eq "0") {
       $altnum = 1;  
       $bgc = "#000050"; 
    }

    print "<tr><td bgcolor=\"#000050\" align=\"center\">@thisArray[0]<\/font><\/td><td bgcolor=\"$bgc\"><a href=\"goto.cgi?@thisArray[0]\">@thisArray[1]<\/a><\/font><\/td><td bgcolor=\"$bgc\" align=\"center\">@thisArray[6] MB<\/font><\/td><td bgcolor=\"$bgc\">@thisArray[7]<\/font><\/td><td  bgcolor=\"$bgc\" align=\"center\">@thisArray[5]<\/font><\/td><td  bgcolor=\"$bgc\" align=\"center\">@thisArray[10]<\/font><\/td><td bgcolor=\"#000050\" align=\"center\"><a href=\"more.cgi?@thisArray[0]\">more<\/font><\/a><\/td><\/tr>";

    $linenum++;            
}
print "<\/td><\/tr><\/table>\n\n"; 


__DATA__
1|0 catch|english|personal|http://www.0catch.com|popup|100|ftp browser fp|advanced basic|domainhosting subdomain counter form guestbook|collection|
2|100megsfree|english|personal|http://www.100megsfree.com|banner|100|ftp browser email|advanced basic|subdomain messageboard form guestbook|collection|
3|10mbfree|english|personal|http://www.10mbfree.com|other|10|browser||subdomain messageboard guestbook|collection|
4|15m4u|english|personal business game|http://www.15m4u.cjb.net|no ads|15|ftp email||php subdomain ssi cgi-bin|cgi-bin|
5|1hwy|english|personal|http://www.1hwy.com|banner|0|ftp browser|advanced basic|subdomain counter form guestbook|collection|
6|20megsfree.com|english|personal business game|http://www.20megsfree.com|banner|20|ftp browser email|advanced basic|pop email subdomain counter form guestbook|collection|
7|20megs|english|personal|http://www.20megs.com/||20|browser|advanced basic|messageboard guestbook|collection|
8|2d adventure|english|game|http://www.2dadventure.com|button|999|browser|basic||no|
9|30mbfree|english|personal|http://www.30mbfree.com|no ads|0|browser|basic|messageboard form guestbook|collection|
10|321website|english|personal|http://www.321website.com/|adframe|0|browser|advanced|messageboard shopping cart guestbook|collection|
11|3dracing|english|game|http://www.3dracing.com/hosting.htm|banner|20|ftp||domainhosting subdomain cgi-bin|cgi-bin|
12|3hosting4u|english|personal business|http://www.3hosting4u.com|no ads|10|browser|advanced basic|counter form guestbook|collection|
13|3megsfree|english|personal|http://www.3megsfree.com|footbanner|0|browser|advanced|counter guestbook|collection|
14|4business|english|business|http://www.4business.net/|banner|20|ftp fp||domainhosting subdomain cgi-bin|cgi-bin|
15|4eit|english|personal business game|http://www.4eit.com|no ads|20|ftp email||php realvideo realaudio pop email domainhosting subdomain mysql ssi cgi-bin form guestbook|cgi-bin|
16|4nx2|english|personal business|http://www.4nx2.com|no ads|20|browser|advanced|php mysql|php|
17|4office|english|business|http://www.4office.net/|banner|999|ftp||subdomain cgi-bin|cgi-bin|
18|50megs|english|personal|http://www.50megs.com/|topbanner|50|ftp browser|advanced basic|domainhosting subdomain messageboard form guestbook|collection|
19|75megs|english|personal business|http://www.75megs.com/|popup/banner|75|ftp browser|advanced basic|domainhosting subdomain counter form guestbook|collection|        +
20|800mph|english|personal|http://800mph.com/|adframe|0|browser|advanced|realvideo realaudio pop email subdomain messageboard counter form guestbook|collection|