Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    my $media_list = join ':', @_;
    print "media_list = $media_list\n";
}

list = 5 6 7 8 9 10
media_list = 5:6:7:8:9:10