ILIAS open source Forums

#!/usr/bin/perl

use Tie::File;

foreach $file (<*.html>){

        tie @array, 'Tie::File', $file;

        $string_first = '<!-- '.$file.' start -->';
        $string_last = '<!-- '.$file.' ende -->';

        unshift @array, $string_first;
        push @array, $string_last;
        untie @array;
}