Select Code to Download

switch ($month) 
{
        case [1]    {$mon="Jan"}
...
        case [11]    {$mon="Nov"}
        case [12]    {$mon="Dec"}
}

$mon = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$month-1]
+;