use Time::Local;

my $begin_sec  = 12;
my $begin_min  = 33;
my $begin_hour = 13;
my $begin_day  = 04;
my $begin_mon  = 02;
my $begin_year = 2006;

my $end_sec = 12;
my $end_min = 33;
my $end_hour = 13;
my $end_day = 04;
my $end_mon = 02;
my $end_year = 2006;

my $dif_sec;
my $dif_min;
my $dif_hour;
my $dif_day;
my $dif_mon;
my $dif_year;

my $wday;
my $yday;
my $isdst;

my $begin_time;
my $end_time;
my $dif_time;

$begin_time = timelocal($begin_sec, $begin_min, $begin_hour,
                  $begin_day, $begin_mon, $begin_year);

$end_time = timelocal($end_sec, $end_min, $end_hour,
                  $end_day, $end_mon, $end_year);

printf ("\n\nDie Anfangszeit ist: ");
print $begin_time;

printf ("\nDie Endzeit ist: ");
print $end_time;

$dif_time = ($end_time - $begin_time);

printf ("\nDie Differenzzeit ist (unix): ");
print $dif_time;

($dif_sec, $dif_min, $dif_hour, $dif_day, $dif_mon, $dif_year, $wday, $yday, $isdst) = localtime($dif
_time);

printf ("\nDie Differenzzeit ist (normal): \n");

print $dif_sec;
printf ("sek\n");
print $dif_min;
printf ("min\n");
print $dif_hour;
printf ("h\n");
print $dif_day;
printf ("day\n");
print $dif_mon;
printf ("mon\n");
print $dif_year;
printf ("year\n");

($dif_sec, $dif_min, $dif_hour, $dif_day, $dif_mon, $dif_year, $wday, $yday, $isdst) = localtime($dif
_time);

my $value = qx{date +%Y%m%d_%H%M%S};
print $value;