#!/usr/bin/perl -w

open FILE, "storemp3.conf" or die "storemp3.conf does not exist.";
open FILEPHP3, ">storemp3.conf.php3" or die "error in creating storemp3.conf.php3";

print FILEPHP3 "<?\n";
while (defined($line = <FILE>)) {
	$first = substr $line, 0, 1;
	if ($first ne "#") {
		print FILEPHP3 $line;
	}
}
print FILEPHP3 "?>\n";

exit 0;
