#!/usr/bin/perl

use strict;
use warnings;

{
	no warnings "once";
	open my $fh, "<", "test.pl";
	my $code;
	while (<$fh>)
	{
		last if /^__DATA__/;
		$code .= $_;
	}
	local *DATA = $fh;
	eval $code;
}