print $t->csv;    # Display a 'portrait' HTML TABLE on web.

##</code><code>##

use strict;
use warnings;
use Spreadsheet::HTML qw( portrait );

print portrait( file => 'ravi.csv', sep => '|', table => {border=>1} );

##</code><code>##


##</code><code>##