#!/usr/bin/perl

use strict;
use warnings;

my $class = 'Foo';
my $foo = do{ eval "package $class; local \$/; <DATA>"};
print $foo;

package Foo;

_ _DATA_ _
Dies
ist
ein 
Test