## main.pl
use warnings;
use strict;

use FOO::Indicators::PPO;
my $foo = FOO::Indicators::PPO->retrieve (id_attached => 7, date => '20061120');
print "foo ($foo)\n";
$foo->delete;
FOO::Indicators::PPO->dbi_commit;