#!/usr/bin/perl
$dir = $ARGV[0];
print "$dir\n";
@files = glob($dir);
foreach $i (@files){
  print "$i\n";
  #`xmms-shell -e load $files[$i]`;
}