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

print strftime("%a", localtime);