use Fcntl;
use FindBin qw($Bin); chdir($Bin);

my $Datei = $Bin.'/a.txt';


$run = 10000;


$t = time;

for(1..$run)
{
    sysopen(DATEI, $Datei, O_WRONLY | O_CREAT | O_TURNC) || die "$Datei: $!";
    sysseek(DATEI, 100000, 0);
    syswrite(DATEI,"TEST");    
    close(DATEI);
}
$t = time - $t; print "Zeit: $t \n";

$t = time;
for (1..$run)
{
    open(DATEI2, ">$Datei" ) || die "$Datei: $!";
    seek(DATEI2, 100000, 0);
    print DATEI2 "TEST";
    close(DATEI2);
}
$t = time - $t; print "Zeit: $t \n";