Select Code to Download

    use POSIX 'strftime';
    print strftime "%m" => localtime;

    print +(qw /Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$mon
+]