#!/usr/bin/perl -w

die "Zu wenig Parameter\n" if @ARGV <= 0;

for (@ARGV)
{
    open READ, "<", $_    or die $!;
    @f = <READ>;
    close READ;

    $f[0] =~ s/^/Hiermit füge ich oben etwas hinzu\n/;

    open WRITE, ">", $_    or die $!;
    print WRITE @f;
    close WRITE;
}