Hi,

Simplest I can think of -

    my($day, $month, $year)=(localtime)[3,4,5];    
            $year = $year + 1900;
        
    $month = qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct N
+ov Dec)[$month];
    print $month;
[download]

J.C.