use strict;
use Date::Tie;
tie my %d, "Date::Tie"; 
$d{weekday}=2; 
print $d{day};

##</code><code>##

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