Help for this page

Select Code to Download


  1. or download this
    1: #!/usr/bin/perl -w
2: print "Hello World\n";
3: exit 0;
  2. or download this
    4: #!/usr/bin/perl -w
5: print << X
6: Hello World
7: X
  3. or download this
    1: use strict;
2: use warnings;
3: use IO::Socket;
  4. or download this
    1: my $port, $host;
2: $host = shift || "localhost";
3: $port = shift || 8000;