Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
  print shift, " date entry:\n";
  return map { $_ => prompt "\tPlease enter $_:" } qw( day month year 
+);
}
  2. or download this
    Birth date entry:
    Please enter day:  27
...
    Please enter year:  2013

You are 21555 days old.
  3. or download this
    use strict;
use warnings;
...

# Perform the math.
print "\nYou are ", $bday->delta_days($now)->in_units('days'), " days 
+old.\n";