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

open(F, "test.pl");
my $f = do { local $/; <F> };
close(F);
eval ($f);


Test.pl:


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

while (<DATA>)
{   
   chomp;
   print "TEST: *$_*\n";
}   

close DATA;


__DATA__
TEST 1 2 3