1: #!/usr/bin/perl -w
2: print "Hello World\n";
3: exit 0;

##</code><code>##

4: #!/usr/bin/perl -w
5: print << X
6: Hello World
7: X

##</code><code>##

1: use strict;
2: use warnings;
3: use IO::Socket;

##</code><code>##

1: my $port, $host;
2: $host = shift || "localhost";
3: $port = shift || 8000;