#!/usr/bin/perl -w
use strict;
use Text::xSV;

print "Creating object...\n";
my $csv = Text::xSV->new;

print "Opening file...\n";
$csv->open_file( 'sample.csv' );

print "Binding header...\n";
$csv->bind_header();

print "Entering loop...\n";
while ( $csv->get_row() ) {
    print "   found row\n";
}
print "Finished loop.\n";