sub format_date {

	my ($isodate, $string, $timezone) = @_;

	my $gmtdate = Class::Date->new($isodate, 'GMT');
	my $tzdate = $gmtdate->to_tz($timezone);

	return $tzdate->strftime($string);
}