sub UNIVERSAL::readon{
    my $self = shift; # hier das FileHandle
    my $len  = shift;
    my $offs = shift;
    $offs = defined $offs ? $offs : $self->tell;

    $self->seek($offs,0);
    $self->read(my $buffer, $len);
    return $buffer;
}