perl API temporally here... waiting for CPAN