$readbuf = read (SONG , $slice ,8129); <br>
my $metainfo= "StreamTitle='my title';";<br>
my $metahead = pack 'C', int(length($metainfo) / 16); <br>
my $metadata = $metahead.$metainfo;<br>
# my $metadata = "\0"; This should work !!!!! aaargh!!!
$slice.=$metadata;<br>