$data = <<DATAFOO;
bla bla bla $globalvar
DATAFOO

print "$data\n" ;