$sek=DateToSek( $heute )-DateToSek( $früher );

sub DateToSek{
 my ($j,$m,$t,$std,$min,$sek)=split /,/,$_[0];

 my @mon;
 $mon[1]=0;
 $mon[2]=31;
 $mon[3]=59;
 $mon[4]=90;
 $mon[5]=120;
 $mon[6]=151;
 $mon[7]=181;
 $mon[8]=212;
 $mon[9]=243;
 $mon[10]=273;
 $mon[11]=304;
 $mon[12]=334;
 my $sjb=$j/4;
 my $sja=int($sjb-492.25);
 if ($sjb==int($sjb) and $m>2) { $sja++; }

 $sek=$sek+$min*60+$std*3600+($mon[$m]+$t-1)*86400+($j-1970)*31536000+$sja*86400;