#!/usr/bin/perl

@files = `/bin/ls *.mp4`;


foreach(@files) {
  chomp;
  open O, ">$_.m3u";
  print O "http://files.freeswitch.org/cluecon_2008/$_\n";
  close O;
}