open (my $pod, '>', 'filename.pod') or die "Can't write pod file: $!";
my $my_perl_variable = 'something';
print $pod <<EOF;

=head1 Imaginary Interpolation

This was defined previously: C<$my_perl_variable>

=cut

EOF