$ perl -E '
> use POSIX qw{ strftime };
> say strftime q{%b}, localtime( time() );'
Aug
$