#!/usr/bin/perl
while ($file=<~/*.raw>) {
	$out = <<EOM;
<header>
<name>$file</name>
<interleaved>1</interleaved>
<rate>44100</rate>
<channels>2</channels>
<endian>little</endian>
<type>short</type>
<framesize>4<framesize>
EOM
	$header = "</header>";
	$total = length($out)+length($header);
	$count = (-$total)%4;
	open(FILE,">$file.header");
	print FILE $out;
	print FILE " "x$count;
	print FILE $header;
	close(FILE);
	$run = "cat $file.header $file | nc localhost $ENV{PPORT}0 &";
	print $run,"\n";
	system($run);
}