!/usr/bin/perl -w
use Asterisk::AGI;
use strict;
my $AGI = new Asterisk::AGI;
my $input = $AGI->ReadParse();
use Spreadsheet::ParseExcel::Simple;

my $xls = Spreadsheet::ParseExcel::Simple->read("dialler.xls");
foreach my $sheet ($xls->sheets) {
    while ($sheet->has_data) {
        my @data = $sheet->next_row;
        print join "|", @data;
        print "\n";
    }
}
exit;