FWIW, you could avoid pod inside strings by indent/dedent

print $out map { s/^    //; $_ } split /\n/, "    package Date::Manip:
+:TZ::$module;
    # Copyright (c) 2008-$curr_year Sullivan Beck.  All rights reserve
+d.
    ...
"
[download]