Or use Date::Format; and say time2str("%A",$time);

You did want Saturday, right?

Update: I got ahead of myself. time2str uses a epoch time which you could get from timelocal. Turns out, I should have used
strftime("%A", ['','','',25,05,2002]);

ALL HAIL BRAK!!!