Select Code to Download

use DateTime;

#!/usr/bin/perl
use warnings;
...
my $dt = 'MyClass'->new;
my $result = $dt->foo('2001-01-01');
print Dumper $result;

$VAR1 = {
          'dt' => bless( {
...
          'day' => '01',
          'year' => '2001'
        };