use strict;
use File::Find;

if ($ARGV[0]) {
  find(\&wanted, $ARGV[0]);
} else {
  print "mp3playlist.pl by Viking (& davorg)\n";
  print "usage: mp3playlist.pl <dir>\n";
}

sub wanted {
  return unless -f;
  return unless /\.mp3$/;
  print "$File::Find::name\n";
}