xris

use MythTV;

$x = new MythTV();
my %rows = $x->backend_rows('QUERY_RECORDINGS Delete');

$i = 0;
foreach my $row (@{$rows{'offset'}}) {
    $i++;
    print "Offset $i:\n  ", join("\n  ", @$row), "\n\n";
}

$i = 0;
foreach my $row (@{$rows{'rows'}}) {
    $i++;
    print "Row $i:\n  ", join("\n  ", @$row), "\n\n";
}