Select Code to Download

#!/usr/bin/perl -w
use strict;
...
source2 CLICK linkid1
source2 CLICK linkid1
source2 CLICK linkid2

foreach my $source ( sort keys %source ) {
  print "$source\n\tcount: $source{$source}{count}\n";
...
    }
  }
}