If you enjoy saving a few keystrokes here and there (and who doesn't?), you can replace

my $poem;

{
        local $/ = undef;
        $poem = <DATA>;
}
[download]

with this:

my $poem = do { local $/; <DATA> };
[download]

IMHO, it's not only shorter, it's also more readable, since you are assigning the entore operation to the variable. ;)