Select Code to Download

#!/usr/bin/perl
use warnings;
...

my @tableattribute_ref=$sforce->describeGlobal()->result->{sobjects};

       [
          {
...
          }
        ];

my $tableattribute_ref=$sforce->describeGlobal()->result->{sobjects}[#
+]{name};

my $count;
$count = 0; 
...
#This is where I can push names to an array
$count++;
}