perl -MDate::Tie -e 'tie %d,"Date::Tie"; $d{weekday}=2;print $d{day};'