Select Code to Download

use Digest::MD5;
foreach my $record(@records){
...
  printf "%s... %s \n", $arty[1], ($act eq $arty[0] ? "ok" : "not ok")
+;
  close MD5;
}