# !/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Table;

my $table =
  new Data::Table(
    [ [ 20070410, 20070415, 20070417, 20070418 ], [ 10, 20, 15, 42 ] ],
    [ 'Dates', 'Values' ], 1 );
print $table->csv;

##</code><code>##

# !/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Table;

my $dates = "20070410, 20070415, 20070417, 20070418";
my $quan  = "10, 20, 15, 42";
my $table = new Data::Table( [ [$dates], [$quan] ], [ 'Dates', 'Values' ], 1 );
print $table->csv;