Select Code to Download

perl -MDigest::MD5 -ne "print if ($seen{&Digest::MD5::md5_hex($_)}.= @
+ARGV) =~ /10$/" fileA.txt fileB.txt > output.txt

use Tie::File;
my @content;
...
print scalar(@content);
# .....
untie (@content);