Select Code to Download

#!/usr/bin/env perl -l

...
my $t = Time::Piece->strptime($date_string, '%b %d %H:%M');

print 'Day=', $t->mday, ' Month=', $t->mon;

Day=31 Month=10