##
use cout;
print << 'Hello World!\n';
##
##
query::statement->execute('SELECT "Hello World!\n"');
##
##
procedure perl is begin(print 'Hello World!\n')
##
##
'Hello World!\n'; ?>
##
##
use LC0.ascii /Hello, world!/;
movl $LC0, (%esp);
##
##
print *, "Hello World!",
e\nd