#!/usr/local/bin/perl
use strict;

my $name = "Fred";

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

# output
print $tmpl;

__DATA__
This is my template.
Here is my $name