Select Code to Download

# it seems to have no problem here
print SERIAL $IM{'POL'};

# but HERE...
read(SERIAL,$data,$BUFFER);