#!/usr/bin/perl
use strict;
use warnings;
use Date::Parse;

my $mod_date="2004-07-26";
my $mod_time="12:04:51";
my $current_date="2004-08-02";
my $current_time="16:41:33";

my $d1 = str2time("$mod_date $mod_time");
my $d2 = str2time("$current_date $current_time");

print "Der Unterschied betraegt ", ($d2-$d1)/60, " Minuten.\n";

_ _END_ _

Der Unterschied betraegt 10356.7 Minuten.