open( FH , "+<" , $source ) or die "Can not open file: $source $!\n";
binmode(FH);

##</code><code>##

$position = tell(FH)

##</code><code>##

seek( FH , $position , SEEK_SET );

##</code><code>##

write( FH, $example , $example_size )
    or die "Couldn't write at FH : $!\n";

##</code><code>##

fwrite(p, size, n, stream) PerlIO_write(perlio, buf, numbytes)

##</code><code>##

Useless use of a constant (FH) in void context at test.pl line 193.