#binmode FILEHANDLE #binmode FILEHANDLE, DISCIPLINE $infile="a.gif"; open( INFILE, "<$infile" ); open( OUTFILE, ">out.gif" ); binmode( INFILE ); binmode( OUTFILE ); while ( read( INFILE, $buffer, 1024 ) ) { print OUTFILE $buffer; } close( INFILE ); close( OUTFILE );