isn::t $of->pcm_tell, 0, '->pcm_tell is not 0 after read';
$of->raw_seek(0);
is $of->pcm_tell, 0, '->pcm_tell is 0 right after raw_seek';
isn::t $of->pcm_tell, 0, '->pcm_tell is not 0 after read';
$of->raw_seek(0);
is $of->pcm_tell, 0, '->pcm_tell is 0 right after raw_seek';