#!/usr/bin/perl --

use strict;
use warnings;

use Time::Piece;

my $t = localtime;
die $t->mday; # also available as $t->day_of_month
__END__
18 at - line 9.