Perl Script - Openssl and Certificate Expiry

Hi, Looking for somebody to write a script in perl that will do the following: * Open a private key using the OpenSSL Module (Private key stored in a flat file so you will need to open the file and read it in to a variable) * Get the Public Key from the private key * Load the SSL Certificate and parse it (Certificate stored in a flat file so you will need to open the file and read it into a variable) * Retrieve the expiry date of the certificate * Convert the supplied certificate expiry with the local time and tell me how many days until the certificate expires Cheers.