For extracting useful information in Kiva by Perl.