Select Code to Download

#! perl -slw
use strict;
...
    };
}
pp \%data;

{
  "01:00:00,00" => {
...
                     Sound => "DDY",
                   },
}