my $time = str2time('2002-02-21');
my $day_of_wk = time2str("%w", $time);
print "day of week is $day_of_wk\n";

$day_of_wk = time2str("%A", $time);
print "day of week is $day_of_wk\n";