Select Code to Download

#!perl
use DBI; 
...
  $col[2] = $table{$key}{'run'};
  printf "| %-25s | %3d | %3d |\n",@col;
}

# input
my @top = ();
...
for (@top){
  printf "| %-25s | %3d | %3d |\n",@$_;
}