my $name = "Mr. Smith"; print while ; __DATA__ Content-type: text/html Hello $name!