$data = do { local $/; }; #do{$data = $data . $_ } while (); #gives a uninitialized value in concatenation ##

##

#!/usr/bin/perl

use strict; 
use warnings;
use Date::Calc qw( Today Today_and_Now Date_to_Days Add_Delta_Days Delta_Days Decode_Date_US );

my $display=qq();
my $data = qq();

my $date = sprintf "%02d/%02d/%04d", (Date::Calc::Today())[1,2,0];
my $location = "BR";

$display .= qq(\n\nStart Display\n\n);
$data = do { local $/;  };
#do{$data = $data . $_ } while (); #gives a uninitialized value in concatenation 

$display .= $data;

$display .=" 
             more data
            
            
             end of rows
            
           \n";

print $display;


__DATA__

                
                   
                
                
                  All Names List from:
                  $date
                
                
                   
                
              

__DATA__

                
                  Name
                  Address
                  Phone
                  Email
                  $location

Name	Address	Phone	Email	$location