# “Hello, World!”

So... uh... this is a bit embarrassing. But we don't have a plain "Hello, World!" challenge yet (despite having 35 variants tagged with , and counting). While this is not the most interesting code golf in the common languages, finding the shortest solution in certain esolangs can be a serious challenge. For instance, to my knowledge it is not known whether the shortest possible Brainfuck solution has been found yet.

Furthermore, while all of Wikipedia (the Wikipedia entry has been deleted but there is a copy at archive.org ), esolangs and Rosetta Code have lists of "Hello, World!" programs, none of these are interested in having the shortest for each language (there is also this GitHub repository). If we want to be a significant site in the code golf community, I think we should try and create the ultimate catalogue of shortest "Hello, World!" programs (similar to how our basic quine challenge contains some of the shortest known quines in various languages). So let's do this!

## The Rules

• Each submission must be a full program.
• The program must take no input, and print Hello, World! to STDOUT (this exact byte stream, including capitalization and punctuation) plus an optional trailing newline, and nothing else.
• The program must not write anything to STDERR.
• If anyone wants to abuse this by creating a language where the empty program prints Hello, World!, then congrats, they just paved the way for a very boring answer.

Note that there must be an interpreter so the submission can be tested. It is allowed (and even encouraged) to write this interpreter yourself for a previously unimplemented language.

• Submissions are scored in bytes, in an appropriate (pre-existing) encoding, usually (but not necessarily) UTF-8. Some languages, like Folders, are a bit tricky to score - if in doubt, please ask on Meta.
• This is not about finding the language with the shortest "Hello, World!" program. This is about finding the shortest "Hello, World!" program in every language. Therefore, I will not mark any answer as "accepted".
• If your language of choice is a trivial variant of another (potentially more popular) language which already has an answer (think BASIC or SQL dialects, Unix shells or trivial Brainfuck-derivatives like Alphuck), consider adding a note to the existing answer that the same or a very similar solution is also the shortest in the other language.

As a side note, please don't downvote boring (but valid) answers in languages where there is not much to golf - these are still useful to this question as it tries to compile a catalogue as complete as possible. However, do primarily upvote answers in languages where the authors actually had to put effort into golfing the code.

For inspiration, check the Hello World Collection.

## The Catalogue

The Stack Snippet at the bottom of this post generates the catalogue from the answers a) as a list of shortest solution per language and b) as an overall leaderboard.

To make sure that your answer shows up, please start your answer with a headline, using the following Markdown template:

## Language Name, N bytes


where N is the size of your submission. If you improve your score, you can keep old scores in the headline, by striking them through. For instance:

## Ruby, <s>104</s> <s>101</s> 96 bytes


If there you want to include multiple numbers in your header (e.g. because your score is the sum of two files or you want to list interpreter flag penalties separately), make sure that the actual score is the last number in the header:

## Perl, 43 + 2 (-p flag) = 45 bytes


You can also make the language name a link which will then show up in the snippet:

## [><>](https://esolangs.org/wiki/Fish), 121 bytes


/* Configuration */

var QUESTION_ID = 55422; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 8478; // This should be the user ID of the challenge author.

/* App */

return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

jQuery.ajax({
method: "get",
dataType: "jsonp",
crossDomain: true,
success: function (data) {
data.items.forEach(function(a) {
var id = +a.share_link.match(/\d+/);
});
if (!data.has_more) more_answers = false;
comment_page = 1;
}
});
}

jQuery.ajax({
method: "get",
dataType: "jsonp",
crossDomain: true,
success: function (data) {
data.items.forEach(function(c) {
if (c.owner.user_id === OVERRIDE_USER)
});
else process();
}
});
}

var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
return a.owner.display_name;
}

function process() {
var valid = [];

var body = a.body;
if(OVERRIDE_REG.test(c.body))
body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
});

var match = body.match(SCORE_REG);
if (match)
valid.push({
user: getAuthorName(a),
size: +match[2],
language: match[1],
});
else console.log(body);
});

valid.sort(function (a, b) {
var aB = a.size,
bB = b.size;
return aB - bB
});

var languages = {};
var place = 1;
var lastSize = null;
var lastPlace = 1;
valid.forEach(function (a) {
if (a.size != lastSize)
lastPlace = place;
lastSize = a.size;
++place;

.replace("{{NAME}}", a.user)
.replace("{{LANGUAGE}}", a.language)
.replace("{{SIZE}}", a.size)

var lang = a.language;
lang = jQuery('<a>'+lang+'</a>').text();

languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang, user: a.user, size: a.size, link: a.link};
});

var langs = [];
for (var lang in languages)
if (languages.hasOwnProperty(lang))
langs.push(languages[lang]);

langs.sort(function (a, b) {
if (a.lang_raw.toLowerCase() > b.lang_raw.toLowerCase()) return 1;
if (a.lang_raw.toLowerCase() < b.lang_raw.toLowerCase()) return -1;
return 0;
});

for (var i = 0; i < langs.length; ++i)
{
var language = jQuery("#language-template").html();
var lang = langs[i];
language = language.replace("{{LANGUAGE}}", lang.lang)
.replace("{{NAME}}", lang.user)
.replace("{{SIZE}}", lang.size)
language = jQuery(language);
jQuery("#languages").append(language);
}

}
body {
text-align: left !important;
display: block !important;
}

width: 290px;
float: left;
}

#language-list {
width: 500px;
float: left;
}

font-weight: bold;
}

table td {
}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="https://cdn.sstatic.net/Sites/codegolf/all.css?v=ffb5d0584c5f">
<div id="language-list">
<h2>Shortest Solution by Language</h2>
<table class="language-list">
<tr><td>Language</td><td>User</td><td>Score</td></tr>
<tbody id="languages">

</tbody>
</table>
</div>
<tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>

</tbody>
</table>
</div>
<table style="display: none">
</tbody>
</table>
<table style="display: none">
<tbody id="language-template">
</tbody>
</table>

• Must the language meet our usual requirements for what a programming language is, or are we operating by kolmogorov complexity rules? – isaacg Aug 28 '15 at 13:54
• @isaacg No it doesn't. I think there would be some interesting languages where it's not obvious whether primality testing is possible. – Martin Ender Aug 28 '15 at 13:56
• If the same program, such as "Hello, World!", is the shortest in many different and unrelated languages, should it be posted separately? – aditsu Aug 28 '15 at 15:33
• @mbomb007 Well it's hidden by default because the three code blocks take up a lot of space. I could minify them so that they are a single line each, but I'd rather keep the code maintainable in case bugs come up. – Martin Ender Aug 28 '15 at 19:34
• @ETHproductions "Unlike our usual rules, feel free to use a language (or language version) even if it's newer than this challenge." Publishing the language and an implementation before posting it would definitely be helpful though. – Martin Ender Aug 29 '15 at 23:01

# Symbolic Python, 175 157 147 136 bytes

_=-~(_==_)
_*=_-~_
__=_*_+~-~-_
_=('%'+''[~_/_])*-~-~_%(~-_*~-~-_,_*_+_/_,__,__,_*_-~_,',',' ',__-_+~_,_*_-~_,_==_[_/_],__,_*_)+'!'


Try it online!

I'm not sure this is optimal, but it sure was fun.

### Explanation:

_=-~(_==_)           # Set _ to 2
_*=_-~_              # Set _ to 2*(2+2+1) = 10
__=_*_+~-~-_         # Set __ to 10*10+(10-1-1) = 108
_=                   # Set _ to
('%'+''[~_/_])      # %c, where c is coming from the character \x0c
*-~-~_                # Repeated 12 times
%(...                 # Then format into that format string
~-_*~-~-_,              # (10-1)*(10-1-1) = 72  = 'H'
_*_+_/_,                # 10*10+1         = 101 = 'e'
__,                     #                   108 = 'l'
__,                     #                   108 = 'l'
_*_-~_,                 # 10*10+10+1      = 111 = 'o'
',',                    #                         ','
' ',                    #                         ' '
__-_+~_,                # 108-10-(10+1)   = 87  = 'W'
_*_-~_,                 # 10*10+10+1      = 111 = 'o'
_==_[_/_],            # second letter of True = 'r'
__,                     #                   108 = 'l'
_*_                     # 10*10           = 100 = 'd'
)+'!'                   # Then add the last char    '!'
# And implicitly print _


# whenyouaccidentallylose100endorsementsinnationstates -  900  761  728  552  260 bytes

20280782166
114
fff#dff#dfffff#dfffffffffff#dfffffffffffffff#dffffffffffffffffffffffffffffffffff#dfffffffff#dfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff#dffffffffffffffffffffffffff#dfffffffffffffffffff#dffff#dffffffffff#dfffffffffff#d


Try it online!

Golfed down to 761 bytes by increasing the brute-forcer to seeds up to 9999, instead of 999

Golfed down to 728 bytes by increasing the brute-forcer to seeds up to 99999, instead of 9999

Golfed down to 552 bytes by increasing the brute-forcer to seeds up to 999999, instead of 99999

Golfed down to 260 bytes with the help of @ASCII_only

• I'm very curious as to what the inspiration for this languages name is. – Gabriel Mills Feb 6 at 2:38
• @GabrielMills Explained here to Dennis – MilkyWay90 Feb 6 at 2:42

# LOLCODE, 22 bytes

VISIBLE"Hello, World!"


Works in interpreters that don't require the presence of HAI and KTHXBYE.

• Agh! Posted a minute before me :P – Kade Aug 28 '15 at 13:57
• @Shebang Gotta go fast! – Fatalize Aug 28 '15 at 13:57
• damn I'm a few days to late :( – Alex Carlsen Sep 1 '15 at 11:54
• And I pronounce this code, Ungolfable! – Erik the Outgolfer Jun 4 '16 at 13:01

# Wheat, 32 Bytes

Wheat is an esolang that is based on outputting and inputting. Only what has been output on a previous cycle can be input on the current one. The buffers last only one cycle; if the data of previous cycle is not read on current cycle, on the next cycle it can not be accessed, it will all be erased, replaced by the output of the current cycle (if any, otherwise the empty string is used).

output "Hello, World!"
terminate

• The description of Wheat that you gave is taken directly from the Wheat esolang page. Care to cite? – Esolanging Fruit Jan 21 '18 at 6:41

# Gibberish, 17 Bytes

Surprisingly, the shortest answer I could make is not gibberish at all.

[Hello, World!]eo


# golflua, 16 bytes

w"Hello, World!"


# Rust, 34 bytes

fn main(){print!("Hello, World!")}


# CJam, 15 bytes

"Hello, World!"


Try it online

# XSM, 28 bytes

<print>Hello, World!</print>

• This is an actual XML programming language? Wow. That's... different! – georgeunix Aug 28 '15 at 17:09
• Damn it, I was hoping I could write my own... Now someone's already gone and made it :P – Beta Decay Aug 29 '15 at 7:12
• @BetaDecay There is also xplusplus.sourceforge.net and o-xml.org – Jerry Jeremiah Aug 30 '15 at 23:15

# GolfScript, 15 bytes

"Hello, World!"


# ///, 13

Hello, World!


can't get much simpler than this

# Underload, 16 bytes

(Hello, World!)S


Underload is the Brainfuck of stack-based languages. (x) pushes the string x to the stack, and S prints the value on top of the stack.

# Rail, 27 bytes

$'main' -[Hello, World!]o#  Rail is a 2D language where the instruction pointer is a train that runs on, well, rails. Execution begins from the main function, starting from the $ and initially moving southeast.

The first command encountered is -, which makes the train turn so that it's moving eastward. Then we push a string, output with o and terminate with #.

# bc, 16 bytes

"Hello, World!"


(bc requires a trailing newline - hence 16 instead of 15)

# Sinclair BASIC, 16 bytes

PRINT "Hello, World!"


Note: PRINT  on the Sinclair Spectrum is written with a single keystroke (p) and takes a single byte. The code above works on the "command line".

You can try it online at http://torinak.com/qaop. Keystrokes for that emulator: p shift-' shift-h e l l o , space shift-w o r l d ctrl-1 shift-'. Don't press shift-1 as that seems to delete the whole line.

Depending on your definition of a "full program", this may or may not be acceptable. Especially for bigger programs, you would need to use line numbers, type the whole program and then use the RUN  command (keystroke r). In that case, prepend a 1 to the above code (for 1 extra byte).

# Idris, 36 bytes

main:IO();main=putStr"Hello, World!"


Idris is sort of like Haskell, but top-level definitions need a type signature.

• Also, it has dependent types and is a way better language xD – Mega Man Nov 6 '18 at 17:34

# CoffeeScript, 21 bytes

alert "Hello, World!"


or console.log "Hello, World!", if that's closer to STDOUT for your tastes.

# pb, 80 bytes

b[72]>b[101]>b[108]>b[108]>b[111]>b[44]>>b[87]>b[111]>b[114]>b[108]>b[100]>b[33]


Super naive. I tried to golf it down by keeping 108 (the character code for "l") in T, either by doing t[108] at the beginning of the program or t[B] after the first time it was printed, but each attempt ended up exactly the same length.

Note that pb doesn't require you to write b[32]. Any blank spaces on the canvas (with at least one non-blank space to the right of it) are automatically printed to the terminal as a space.

# Fueue, 47 bytes

72 101 108 108 111 44 32 87 111 114 108 100 33H


# 3var, 65 bytes

iiisa-<*>P/>is+iP>PPm-iiiPi<O/<m/>+<O+d<+<O+><kkkOP->siskkkOP</>P


Here's a 3var program found by brute force. Note that this might not be optimal since I assume that we'll only ever need numbers in the range 0-150, for efficiency reasons. I'll probably address this in a later edit.

3var is a Deadfish variant which has, well, three variables A, B and R. The relevant commands are:

Command              A           B           other
-----------------------------------------------------------
Increment            i           a
Decrement            d           k
Square               s           m
Output as char       P           O
Copy from R          >           <
Set R = A+B                                  +
Set R = A-B                                  -
Set R = A*B                                  *
Set R = A div B                              /


And here's a trace:

Line           A     B     R     Output
----------------------------------------------------------------
iiisa-         9     1     8
<*             9     8     72
>P             72    8     72    H
/>             9     8     72    H
is+            100   8     108   H
iP             101   8     108   He
>PP            108   8     108   Hell
m-             108   64    44    Hell
iiiP           111   64    44    Hello
i<O            112   44    44    Hello,
/<m            112   4     2     Hello,
/>             28    4     28    Hello,
+<O            28    32    32    Hello,
+d<            27    60    60    Hello,
+<O            27    87    87    Hello, W
+><            114   114   114   Hello, W
kkkOP          114   111   114   Hello, Wor
->             3     111   3     Hello, Wor
siskkkOP       100   108   3     Hello, World
</             100   3     33    Hello, World
>P             33    3     33    Hello, World!

• @LegionMammal978 Do you mean esolang wiki? The site seems fine to me... – Sp3000 Sep 28 '15 at 2:39

# Tcl, 19 bytes

puts Hello,\ World!


I think this can get smaller than it already is.

• Is that missing the comma? – curiousdannii Aug 29 '15 at 13:00
• What comma do you mean? – Johannes Kuhn Aug 29 '15 at 13:06
• I'm just guessing, but will this print "Hello World!" rather than "Hello, World!"? – curiousdannii Aug 29 '15 at 13:10
• Right... Forgot that piece... – Johannes Kuhn Aug 29 '15 at 13:12

# 99, 283 bytes

999 9 9
99 99999999 999 9
99
99 99999 9 999 9
99
99 99 999 999999
99
99
99 9999999 9999 999 9
99
99 99 9999999 9 999 9 999 9 999 9
99
99 99 999999 9 999999 9
99
9999
99 99999 999 999999 999 9
99
99 9999999 9999 9 999 9
99
99 99 999999 9
99
99 99 999999 999 9
99
99 99999 9999999 9
99


This was handcrafted so it is very likely suboptimal. Someone should write a metagolfer...

The following table has been quite useful writing 99 code by hand:

Variable  /9%128    Can print?

9              1
99            11    !
999          111
9999          87    !
99999        103
999999         7    !
9999999       71
99999999      71    !


All further rep-digits of 9 also yield 71 when taken modulo 128 (after dividing by 9).

• All further rep-digits of 9 also yield 71 when taken modulo 128. you can't just drop these math facts like they're nothing.now i'm going to be amazed all day – undergroundmonorail Aug 30 '15 at 14:04
• @undergroundmonorail Note that it's actually the rep-digits of 1 which do this, because the variable is divided by 9 before taking the modulo. And the reason this works is that (710 % 128) happens to be 70. – Martin Ender Aug 30 '15 at 14:09

# KEMURI, 65 bytes

^^^^"^^'"'^'"'"^^^^'^''^"^^^^^^''^'"''"^^^^^^^'"^^'^'^''^'^'^|


There's a KEMURI to C compiler available here if you'd like to test.

KEMURI is stack-based, and has the following 6 instructions:

~    Pop byte and push its NOT
^    Pop two bytes and push their XOR
"    Duplicate top of stack
'    Rotate top three of stack (top becomes third)
Push the ASCII values of "Hello, world!"
|    Output stack as ASCII


Note that  pushes "Hello, world!" with a lowercase w. This means that the shortest "Hello, world!" program is

|


but that doesn't mean that the best "Hello, World!" program, with an uppercase w, will be particularly short.

To aid our search for the best "Hello, World!", here are a couple of observations:

• | empties the stack, so we will only need it exactly once, as the very last character in the program.
• ~ is useless, since NOT will flip the most significant bit to 1, which no printable ASCII character needs.
• We will never need to duplicate with " if the top two stack elements are the same, since:
• Rotating three identical elements is a no-op.
• The only way to reduce the stack size is with ^ XOR. XOR of two identical elements just introduces a 0 and XOR 0 is a no-op.
• "Hello, World!" contains neither a triple letter nor ASCII 0.

This means that we only need to look at the four instructions ^"'. To piece together the "Hello, World!", I looked at programs which contain a single , at the very start. This gives a bunch of "jigsaw pieces" which we can fit together to form the whole message. There's no guarantee that this approach is optimal, but the search space is pretty big, so any better solution will probably need to be a bit more intelligent.

The pieces I managed to obtain were (<sp> is trailing space):

World!   ^^^^^"^^^|
orld!    ^^^^^^^"^^|
rld!     ^^^^^^^^"^^|
ld!      ^^^^^^^^^"^^|
d!       "^^^^^^^^^^^^|
World!   ^^^^^"^'"'^'^|
<sp>     ^"^^^^^^^^^^^^|
!        ^^^^^^^^^^^"^^|
H        ^^^^^^^^^^'^"^^|
,        ^^^^^^^^^^''"^^^|
d        ^^^^^^^^^^''^"^^|
o        ^^^^''^"^^^^^^^^|
e        "^^^^^^'"^^^^^^^^|
W        ^"^^^^^^'"^^^^^^^|
l        ^^"^^^^'"^^^^^^^^|
, World! ^^^^"^^'"'^'"'"^^|
ld       ^^^^^^^^^"^^''"^^|
ll       ^^"^^^^'"^^^^^^^^"|
r        ^^^^^^'"^^^^'^"^^^|
rl       ^^^^^^'"^^^^''"^^''^|
He       ^^^^^'"^^'^'^''^'^'^|
el       ^^"^^^^^^^^''"^^''"^^|
o,       ^^'^"^^^^"'^'^'^'^'^'^|
Wo       ^^^^"^^^'"^^'^''^''^''^|
,<sp>    ^^^^^'^'^'^''^''^'"'^'^|
lo       ^^^^^^^"^^'"^^''"^^''"^^|
or       ^^^^^^'^"^^''"^^''"^^''^|
llo      ^^'^''^"^^^^^^''^'"''"^^|
ell      ^^"^^^^^^^^''"^^'"''"^^''|
W       ^"^^^^^^''^''^''^''^''^"'^|


The program at the top of the post was formed by combining the He, llo and , World! pieces.

# Aheui, 177 bytes

밣밢따빠빠빠맣밤밢따다빠빠빠밠타맣맣맣받다맣밠밤따타맣밤밣따맣받발따다빠맣밦밤따다빠빠맣받다맣받타빠맣밣타빠맣받나맣희


Aheui is Befunge, but with Hangul. Test this here.

# MicroSoft Windows HTA - 13 bytes

Hello, World!


MicroSoft Windows HTA occupies a niche between HTML and applications, where you get the simplicity and ease of HTML, with the direct access to the system API of applications, including file and system calls.

When I was first introduced to it, I wondered how I ever got along without it. I used it to make really easy intuitive interfaces for complex command line utilities.

Sadly, it's fallen by the wayside and you hardly hear about it anymore. One thing I remember about the official documentation was that they boasted how a bare Hello, World! is a legal hypertext application.

# Swift, 22 Bytes

### Before Version 2.0 (24 Bytes)

println("Hello, World!")


### After Version 2.0 (22 Bytes)

print("Hello, World!")


Includes trailing newline

Top level code in the main file gets executed automatically. In playgrounds, anything at top level gets executed as well.

In version 2.0 beta 6 this is also possible:

print("Hello,", "World!")


which will print all the items provided, separated by a space, terminated by a newline. This is equal to the following (which is probably the longest Swift version of a non-ridiculous "Hello, World!" program):

print("Hello,", "World!", separator: " ", terminator: "\n")


Since version 2.0 beta 6, Swift is one of the few languages that can have a vararg parameter at any position (not just the end), due to named parameters.

# Commodore Basic, 16 bytes

In order to input this program, you'll need to switch your Commodore 64 to character set 2 by pressing <SHIFT> + <C=>.

1?"hELLO wORLD!


The Commodore home computers come with two character sets: "unshifted" mode, which is derived from ASCII-1963 and so lacks lower-case letters, and "shifted" mode, which has both lower- and upper-case letters, but in the opposite order from modern ASCII-1967-derived encodings. Any "Hello, World!' program that produces the requested byte stream on a Commodore will look funny on the Commodore's screen. In the interests of not having to look up a half-dozen obscure Unicode characters, I've chosen to write my program in "shifted" mode, which merely has reversed case.

As a side note, the Commmodore Basic interpreter (and presumably many other Microsoft Basic variants) will let you omit the trailing quotation mark if a string extends to the end of the current source line.

# FlogScript, 17 bytes

{Hello, World!}P.


# Actionscript 3.0, 23 22 bytes

trace("Hello, World!")

• Does actionscript 3.0 REQUIRE semi-colons? I stopped after 2.0 but I don't think it did back then. – Albert Renshaw Sep 29 '15 at 21:27
• @AlbertRenshaw is correct, it doesn't require a semi-colon in 3.0. – Elliot Blackburn Oct 2 '15 at 14:17
• This works in the Actions pane of the Flash IDE, but Flash Builder or the Actionscript compiler, you need a full class definition. – Brian Jan 15 '16 at 18:54

# Perl, 18 bytes

say"Hello, World!"


### Remark:

"say" is used in Perl 6. While "print" is a Perl 5 thing. But "say" can be used in version 5.10+ when the -M5.010 switch (or -M for a higher version) is used.

## Perl 5 without version switch, 20 bytes

print"Hello, World!"


### Perl/Tk, 91 Bytes

Ok, this doesn't exactly print to STDOUT as was requested by the challenge. Since it creates a window with a button. So this was just added for the sake of entertainment/completeness.

use Tk;MainWindow->new->Button(-text=>"Hello, World!",-command=>sub{exit})->pack();MainLoop


• You can shave off 2 bytes by replacing print with say, provided the OP agrees with this meta post in -M5.010 being free. – Slade Aug 28 '15 at 15:54
• I knew "say" is used in Perl 6, but didn't realise they added it to a more recent version of Perl 5 than the one I use. So I added both to the post. – LukStorms Aug 28 '15 at 19:42
• There is another Perl 6 answer, so maybe you could just post the Perl 5 one. – LegionMammal978 Sep 1 '15 at 21:41