Ho provato con il modulo Date::Manip

codice:
use Date::Manip;
Date_Init("TZ=CEST");
print scalar localtime( UnixDate("4:30pm","%s") + ( 3600 * 5 ) );
Ora peò avrei bisogno di ritornare nella forma HH:MMpm/am

grazie