Select Code to Download

sub get_files {
    my $files = shift;
    my @file_list;
...
    my $rmdir2 = shift (@file_list);
    return @file_list;
}