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

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

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