Added subroutines to perl module for pulling Status info from database.