#!/usr/bin/perl 
# $Id: folders 56 2007-01-10 14:41:53Z boumenot $
# Christopher Boumenot <boumenot@gmail.com>

use strict;
use warnings;

use Net::TiVo;
#use Log::Log4perl qw(:easy);
#Log::Log4perl->easy_init($INFO);

my $tivo = Net::TiVo->new(host  => $ENV{TIVO_HOST},
                          mac   => $ENV{TIVO_MAC});

print $_->name, "\n" for ($tivo->folders());