#! /usr/bin/perl

use diagnostics;

open(FH, "phpsysinfo_2.3-1.diff.gz");
seek(FH,250000,0);
$subst = 2923585676 - 10;

print "$subst\n";

$readed = read(FH, $daten, $subst);

close(FH);
print "we read $readed bytes\n";
print "here they are: $daten\n";

