xris

use MythTV;

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

if (@{$rows{'offset'}}) {
    $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";
}