#!/usr/bin/perl

foreach(@ARGV)
{
 my $in=$_;

 if($in=~m{http://www\.youtube\.com/watch\?})
 {
  print qx{youtube-dl -o "%(title)s.%(ext)s" --restrict-filenames -f18 -x --audio-format mp3 "$in" 1>&2};
 }
 elsif($in=~/^(.*)\.(avi|mpg|mp4|wav|flv|m4a|wma|ogg|flac)$/)
 {
  print qq{ffmpeg -i "$in" -ar 44100 -ab 160k -ac 2 "$1.mp3" 1>&2};
  print qx{ffmpeg -i "$in" -ar 44100 -ab 160k -ac 2 "$1.mp3" 1>&2};
 }
 else
 {
  print "\n*** unsupported source '$in' ***\n\n";
}}