sub format_date {
	my ($epoch, $string, $timezone) = @_;

	local %ENV;
	$ENV{TZ} = $timezone || 'GMT';

	return strftime($string, localtime($epoch));
}

##</code><code>##

sub format_date {

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

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

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