
#----------------------------- |
binmode(HANDLE); |
#----------------------------- |
$gifname = "picture.gif"; |
open(GIF, $gifname) or die "can't open $gifname: $!"; |
binmode(GIF); # now DOS won't mangle binary input from GIF |
binmode(STDOUT); # now DOS won't mangle binary output to STDOUT |
while (read(GIF, $buff, 8 * 2**10)) { |
print STDOUT $buff; |
} |
#----------------------------- |



