$today = &day($mon,$day,$year) ;

##</code><code>##

$today = &day($day,$mon,$year) ;

##</code><code>##

use POSIX       qw( strftime );
use Time::Local qw( timegm   );

print strftime("%a", gmtime(timegm(0, 0, 0, $day, $mon-1, $year)));

##</code><code>##

use POSIX       qw( strftime  );
use Time::Local qw( timelocal );

print strftime("%a", localtime);