Can't locate method setDelimiter at rb.pl line 8.

##</code><code>##

my $csv = Text::CSV->new({ sep_char => '|' });

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new({ sep_char => '|' }); # create a new object

my $sample_input_string = '""|""|""|""|""|""|""|""|Submit|""|""|""|GSM|GSM|';

if ($csv->parse($sample_input_string)) {
    my @field = $csv->fields;
    my $count = 0;
    for my $column (@field)
    {
        print ++$count, " => ", $column, "\n";
    }
    print "\n";
} else {
    my $err = $csv->error_input;
    print "parse() failed on argument: ", $err, "\n";
}

##</code><code>##

1 =>
2 =>
3 =>
4 =>
5 =>
6 =>
7 =>
8 =>
9 => Submit
10 =>
11 =>
12 =>
13 => GSM
14 => GSM
15 =>

##</code><code>##

Submit|GSM|GSM => 560