$time = scalar localtime;
$day = substr($time, 0,3);

print $day;


##</code><code>##

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)