Select Code to Download

use strict;
use warnings;
...
my @a_file_only = List::Compare->new( \@a_file, \@b_file )->get_Lonly;

print "$_\n" for @a_file_only;

http://www.ok.com/test_1234.html
http://www.ok.com/test_error.html