#!/usr/bin/perl
use CGI;
use Data::Dumper;


my $cgi = new CGI;
foreach($cgi->param()) {
  $F{$_} = $cgi->param($_);
}

if ($F{mp4}) {
  my $foo = $ENV{SCRIPT_NAME};
  $foo =~ s/\/[^\/]+$//;
  print "Content-Type: audio/x-mpegurl\n\n";
  print "http://$ENV{SERVER_NAME}$foo/$F{mp4}\n";
  exit;
}


print "Content-Type: text/html\n\n";

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


foreach(@files) {
  print "<a href=$ENV{SCRIPT_NAME}?mp4=$_>$_</a><br>"
}

print "<pre>";
print Dumper \%ENV;