perl入门练习（11）

小骆驼图书十一章练习；

1.

#! /usr/bin/perl
use Module::CoreList;
my %modules = %{ $Module::CoreList::version{5.006}};
print join "\n",key %modules;

use DateTime;
my $t = localtime;
my $now = DateTime->new(
					year => $t[5] + 1900,
					month => $t[4] + 1,
					day 	=> $t[3],
				);
my $then = DateTime->new(
					year => $ARGV[0];
					month => $ARGV[1],
					day => $ARGV[2],
				};
my $duration = $new - $then;
my @units = $duration->in_units(qw(years months days));
printf "%d years, %d months , and %d days\n",@units;