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