Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
my $d = data->new;
print $d->day("10"), "\n";
print $d->now("d"), "\n";

10th
10

my $temp = $d->now("d");
print $d->day("$temp"), "\n";

{ package data;
    sub new {
...
        #etc...
    }
}