use Date::Manip;
#use warnings; # Skipped for quick example
#use strict; # Skipped for quick example
Date::Manip::Date_Init('TZ=US/Mountain');

print johannz('yesterday');

sub johannz {
	return Delta_Format(DateCalc('today',shift()), 0, '%sv s:%mv m:%hv h - %dv d/%Mv M/%yv y');
}