use Date::Day;

## The following will print the weekday corresponding 
													

my $fragment = '2010-03-23 17:00:00';
$fragment =  substr $fragment,  0, 10;
my ( $year, $month, $day ) = split /-/, $fragment;
$fragment  = &day($month,$day,$year);
$fragment = $fragment." $day-$month";
print "$fragment";