Select Code to Download

my @results = split(/dbDelimeter/,`SQL_Query`);

while(@results) {
...
open LESS, '|less -cSRM' or die $!;
print LESS $finalOutput;
close LESS;

open(my $data, "+>", undef) or die;
$data = `SQL_Query`;     ## Method 1
print $data `SQL_Query`; ## Method 2
...

system("less $data"); ## Output: None / Doesn't Work
print $data;          ## Output: GLOB(0x1c8ef430)