my $dir = "/naspool/videos/HomeVideos";
my $plsfile = "$dir/Random.pls";
-my $avifiles = "????/????-??-??.avi";
+my $mkvfiles = "????/*.mkv";
chdir $dir || die "Couldn't change directory!\n";
system "rm -f $plsfile";
-@files = `ls -1 $avifiles`;
+@files = `ls -1 $mkvfiles`;
@shuffled = shuffle(@files);
open (FILE, ">$plsfile") || die "Couldn't open $plsfile!\n";
print FILE @shuffled;