print $cgi->table(
   $cgi->Tr( map { 
      $cgi->td( [ $_, @{$sites{$_}} ] ) 
   } keys %sites ) # Tr
); #table
[download]

update: should be keys %sites as davorg pointed out.

Just a couple of points on that code.

1. I think you meant keys %sites
2. I find the object interface to CGI.pm clutters code up unnecessarily and can confuse beginners

Here's a complete test program based on your code:

#!/usr/bin/perl  -w

use strict;
use CGI qw (:standard);

my %sites;

while (<DATA>) {
  chomp;
  my($name, @status) = split/\|/;
  $sites{$name} = [@status];
}

print header;
print start_html;

print table(Tr(th(['Site Name', 'Site Address', 
                   'Status', 'Comments'])),
            Tr([ map { td([$_, @{$sites{$_}}])} keys %sites ]));

print end_html;

__END__
site A|www.sitea.com|0|Not ready
site B|www.siteb.org|1|Ready!!
[download]

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>

use HTML::Table;

# Create an HTML::Table object
my $table = HTML::Table->new;
$table->addRow('Site Name',
               'Site Address',
               'Status',
               'Comments',
              );
$table->setRowHead(1);

# Add the data one row at a time
foreach my $site (keys %sites) {
  $table->addRow($site,
                 $sites{$site}->[0],
                 $sites{$site]->[1],
                 $sites{$site}->[2],
                );
}
print $table;
[download]

1. split takes a regex, so you have to quote the pipe.
2. You're assigning a list to a scalar in the hash, so you're just storing the number of elements. If you want to store the entire list, you have to say $sites{$site} = [@values];

Now, as to printing the table. I'm assuming you're printing in the order that they come in. Here's how I like to do this kind of thing:

my @rows;
open (INFILE, "<sites.txt");
my @headings = ( "Site Name", "Site Address", "Status", "Comments" );
push( @rows, th( \@headings ) );
while (<INFILE>) {
    my @fields = split /\|/;
    push( @rows, td( \@fields ) );
} # while
close (INFILE);
print table( TR( \@rows ) );
# NOTE: It's TR, not tr, so it doesn't get confused with tr///
[download]

xoxo,
Andy
--
I was dreaming when I wrote this, so sue me if I go too fast.

No need for all that fancy mess, I would do the following.

my $table
open (INFILE, "<sites.txt");
#data from file looks like this:
#sitename|siteaddress|status|comments
 while (<INFILE>) {
  my(@vals) = split/|/;
  $table .= "<tr><td>$vals[0]</td><td>$vals[1]</td><td>$vals[2]</td><t
+d>$vals[3]</td></tr>\n";
}
close (INFILE);
print "<table>$table</table>";
[download]

With the appropriate header of course.

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
[download]