Select Code to Download

#!/usr/bin/perl -w
$dir = "some_dir";
@file_list = glob ("$dir/*");
...
 "f=s" => \@file_list,
);
foreach (@file_list) { print { $_\n"; }

#!/usr/bin/perl -w
$dir = "some_dir";
$file = "$dir/some_file");
...
GetOptions (
 "f=s" => $file,
);