# Create a document from source
         $Document = PPI::Document->new(\'print "Hello World!\n"');