use DateTime;
print DateTime->now->set_time_zone('Europe/London')->strftime('%c %z %Z'); 
# Output:  Aug 8, 2013 2:58:00 PM +0100 BST