а лучше так:
------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use SQLayer;
my $D=SQLayer->new(database=>\'DBI:mysql:database=phorum;host=localhost;port=3306\',user =>\'user\',passowrd =>\'somepass\');
my $Data=$D->row_hash("SELECT id, crontime FROM autosend where id = 1");
my $NI=0;
while ($Data->[$NI])
{
print "".$Data->[$NI]{\'id\'}.",".$Data->[$NI]{\'crontime\'}."";
$NI++
}
------------------------------------------------------------
на много элегантнее...