print "$startday-$startmon-$nyear\n"; # 2-4-2007
print "$endday-$endmon-$nyear\n"; # 9-4-2007

($y,$m,$d) = Delta_YMD($year1,$month1,$day1, $year2,$month2,$day2);

#!/usr/bin/perl
use warnings;
use strict;

sub reverse_date($) {
  my $date_to_reverse = shift;
  my @swap = split /-/,$date_to_reverse;
  return join '-',reverse @swap;
}

my $first_date = "9-4-2007";
my $second_date = "2-4-2007";

my ($earlier,$later) = sort {reverse_date($a) cmp reverse_date($b)} $first_date, $second_date;
print "Earlier date: $earlier\nLater date: $later\n";

charlie@mogadon:~$ ./tmp.pl
Earlier date: 2-4-2007
Later date: 9-4-2007
charlie@mogadon:~$

    Earlier date: 2-4-2007
    Later date: 9-4-2007

#!/usr/bin/perl

use strict;
use Date::Calc;

my @picco = (1981, 6, 16);      # 16 Jun 1981
my @gill  = (1973, 1, 18);      # 18 Jan 1973
$difference = Delta_Days(@picco, @gill);
print "There were $difference days between Picco and Gill\n";