Select Code to Download

  my $name = "Dave";
  my $user = "dpuu";
...
Hello, my name is $name
and my user name is $user
HERE

  my $name="Dave";
  my $user="dpuu";
  my $text_file="User.htm";
  my $text=`cat $text_file`;
  eval "print <<HERE;\n$text\nHERE";