my ($file, @args) = @ARGV;
die "gib mich datei" unless $file;

my %changes;

for my $arg (@args) {
    my ($key, $value) = split('=', $arg);
    die "doofes argument" unless ($key and $value);
    $changes{$key} = $value;
}