Select Code to Download

sub extract_file {
    my( $file_ref ) = @_;
...
    }
    return;
}

my @files = get_xml_files() or die "No XML files to process";