data.txt
--------
$foo = "Hello, World";

data.pl
-------
#!/usr/local/bin/perl

use 5.6.0;

use strict;

our $foo;

do 'data.txt';

print $foo, $/;

__END__