#!/usr/bin/perl -wT
use strict;

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