open HEADER, "header.txt" or die $!; my %variables; while (
) { chomp; my ($name, $value) = split /=/; $variables{$name} = $value; } close HEADER; print < $variables{title}

Hello $variables{name}

EOF