use strict;
use warnings;

use Fcntl ':flock';

my $filename = shift || die "No filename!";
my $fh;
open( $fh, "+<", "$filename" ) or die "Cant open $filename: $!";
flock( $fh, 0 );
my @daten = <$fh>;
my ( $number, $date );
my $changed;
for my $i ( 0 .. @daten - 1 ) {
    if ( $daten[$i] =~ /^Date:\s+\d{4}-\d\d?-\d\d?/ ) {
        my @datum = ( localtime(time) )[ 3 .. 5 ];
        $daten[$i] = sprintf(
            "Date: %4d-%02d-%02d\n",
            $datum[2] + 1900,
            $datum[1] + 1,
            $datum[0]
        );
        $changed++;
    }
    elsif ( $daten[$i] =~ /^Version:\s+\d+\.\d+\-\d+$/ ) {
        $daten[$i] =~ s/^(Version:\s+\d+\.\d+\-)(\d+)$/"$1".(1+$2)/e;
        $changed++;
    }
}
if ($changed) {
  seek( $fh, 0, 0 ) or die "Can't rewind $filename: $!\n";
  truncate( $fh, 0 );
  print $fh @daten;
}
close($fh) or die "Cant close $filename: $!";

__END__

Package: Packagename
Date: 2012-01-10
Version: 0.3-1
Licence: GPL-3