#!/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());