use POSIX;
my $date = POSIX::strftime('%d_%b', localtime);