use Date::Manip;
print ParseDate( "yesterday" ) . "\n";