Select Code to Download

> perl -wnle "print qq(Files remaining ) . @ARGV; print $seen{$_} .= @
+ARGV; " file1 file2 file3

#!perl -w
use strict;
...
};

print "$_\n" for @common;