#!/usr/bin/perl
use strict;
use warnings;
print "\n===== Convert MP3s to WAVs =====\n";
print "Converts a directory of MP3s into a directory of WAVs, replacing old\n";
print "filenames with simple numbering.\n\n";
if (!defined $ARGV[0] || !-d $ARGV[0])
{
print "Error! Missing input directory or directory doesn't exist\n";
print "usage: convert_mp3_to_wav.pl