splitting results

#!/usr/bin/perl

...
foreach my $row ($table->rows) {
    print @$row;
}

data:info john:200 kent:2000

Select Code to Download