You can use substr() to grab chunks of your $buf, and Time::HiRes's usleep() to pause very briefly between chunks.

However, unless your file has a known, constant bitrate, it will be difficult to decide how quickly to push chunks to the player.