[tt]
use Time::Local;
$your_date =~ m/^(\d\d)-(\w\w\w)-(\d\d)$/;
%months = ('Jan' => 0, 'Feb' => 1, ...etc.);
$reform = timelocal(0,0,0,$1,$months{$2},$3);
@localized = localtime($reform);
$day_of_week = $localized[6];
[/tt] "If you think you're too small to make a difference, try spending a night in a closed tent with a mosquito."