#!/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
[download]