#!/usr/bin/perl -w
use strict;

my $name = "Fred";

my @infile = <DATA>;
my $tmpl = join '', @infile;

# output
print eval("qq{${tmpl}}");

__DATA__
This is my template.
Here is my $name