binmode(GIF);
for ( <GIF> ) {
     to_dec($_);
}