Select Code to Download

my @xml_files = glob( '*xml' );
#say for @xml_files;
...
my @results = diff \@joint_files, $format { STYLE => "Table" };

say for @results;

C:\dev>perl comparing_files_3_using_text_diff.pl ./file_compare_on_lis
+ts
...
Global symbol "%format" requires explicit package name at comparing_fi
+les_3_usin
g_text_diff.pl line 20.
Global symbol "@results" requires explicit package name at comparing_f
+iles_3_using_text_diff.pl line 22.