Select Code to Download

#!/usr/bin/perl -w
use strict;
...
          "Shape $table{$key}{shape}\n",
          join(",", @{$table{$key}{coords}}[0,3]), "\n";
}