I would do: #!perl -w use Date::Parse; print ( (localtime( str2time('15 Mar 1999') ))[6]); Or for more clarity: #!perl -w use Date::Parse; use Time::localtime; print localtime(str2time('15 Mar 1999'))->wday; Date::Parse is on CPAN. -- Chris Nandor mailto:pudge@pobox.com http://pudge.net/ %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6']) ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org