I hope this get's you on the right track... of course I don't have much to go on for this example :-)

use CGI;

my $cgi  = CGI->new;

my @data = <DATA>;

print $cgi->header,
      $cgi->start_html,
      $cgi->table(
                  {
                   -border      => 1,
                   -cellpadding => 3,
                   -cellspacing => 0,
                  },
                  (
                   map {
                        $cgi->Tr(
                                 (
                                  map {
                                       $cgi->td( $_ ),
                                      } split
                                 ),
                                ),
                       } @data
                  ),
                 ),
      $cgi->end_html,
      "\n";

__DATA__
Port User            Host/Inet/Dest   Type    Dir Status         Start   Idle
---- --------------- ---------------- ------- --- ------------- ------ ------
C0   -               -                Login   In  USERNAME           0      0
S0   aaaaaa          aaaaa            Netwrk  In  ESTABLISHED     4:08      5
S1   bbbbbb          bbbbb            Netwrk  In  ESTABLISHED     1:01      1
S2   -               -                Log/Net In  IDLE               0      0

The output looks like this:

Port	User	Host/Inet/Dest	Type	Dir	Status	Start	Idle
----	---------------	----------------	-------	---	-------------	------	------
C0	-	-	Login	In	USERNAME	0	0
S0	aaaaaa	aaaaa	Netwrk	In	ESTABLISHED	4:08	5
S1	bbbbbb	bbbbb	Netwrk	In	ESTABLISHED	1:01	1
S2	-	-	Log/Net	In	IDLE	0	0

--
Casey