my $a = dualvar(DateTime->now, "2011/07/17");
print "$a\n".$a->mdy("/")."\n";