Select Code to Download

use strict;
use warnings;
...
print "File List: @{$input->{files}}\n";
pritn "Event List: @{$input->{eventlist}}\n";
print "Output Directory: $input->{output_directory}\n";

File List: test_1 test_2
Event: event1 event2
Output Directory: outputdir