Perlでふぁいるの一覧をJSONで出力する。

って書きましたが。
JSONへのコンバートプログラムをごりごり書いたりはしません。
モジュールがあるなら使えば良いその名も「JSON」。。。
そのままですねｆ＾＾；

use strict;
use utf8;
use JSON;

my @fl = glob "*\.flv";
my @dt = ();
my $test;
my $n = 0;

foreach(@fl){
  $dt[@dt] = {
    'file_name' => $_
  };
}

print qq(content-type:application/json\n\n);
print to_json(\@dt);
exit 0;