The my $content = do { ... }; bit is an idiom that reads the entire contents of the file named by $file and stores it in $content.

<< introduces a here doc. Everything between that line and the end marker THEEND is a string that gets stored in $begin.

$begin.$content concatenates the two strings, and eval executes that code.