Select Code to Download

use strict; 
use Win32::SqlServer qw(SCALAR); 

...
foreach my $name (@$result) { 
    print "$name\n"; 
}