Select Code to Download

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

$position = tell(FH)

seek( FH , $position , SEEK_SET );

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

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

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