use strict;
use Data::Table;
 
my $t= Data::Table::fromCSV("phonebook.csv");
$t->sort('lastname', 1, 0);   # Sort by col 'lastname', alphabetic, ascending
print $t->html;               # Print out phone book as an HTML table.

##</code><code>##

lastname,firstname,phone,TZ,date_entered
Wall,Larry,555-1212,PST,4/3/2001
Schwartz,Randal,555-1212,PST,4/1/2001