Perl

  print "Hello, World!\n" while (1);