diff --git a/convert-to-wav.pl b/convert-to-wav.pl
new file mode 100644
index 0000000..3351a3b
--- /dev/null
+++ b/convert-to-wav.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+foreach my $arg (@ARGV)
+{
+	my $out = $arg;
+	$out =~ s/\....$//;
+	system('mplayer', '-vo', 'null', '-ao', "pcm:file=$out.wav", $arg);
+}
+