Select Code to Download

  my @col = (40,$center-35,$center+30,$breed-40);
  my @row = (20,40,60,80,90,110);

#!perl
use strict;
...
  $units->configure(-text=>$text);
  $result->configure(-text=>sprintf "%.2f",$time);
};