Select Code to Download

...
# my $this = <$files[$num]>;  
  my $this = readline($files[$num]);
...

unless( ... )
{
...
  $unique{$this}++;
...
}