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