#!/usr/bin/env perl
use strict;
print "asd";

bold

[[nick]]
Hello #mojomojo!

==

code * List item 1

  1. Numbered list item
Table Title
Grouping
First Header Second Header Third Header
Content Long Cell
Content Cell Cell

code

bolditalic ㅁㄴㅇㅁㄴ엄ㄴ어 머졈ㅇ 머푸커몁 ㅁ어

say "Howdy partner.";

say "Howdy partner.";

< socket_server.pl >
#!/usr/bin/env perl
use strict; use warnings; use Socket; use Carp;
my $EOL = "\015\012"; # \n 과 같음 End Of Line의 약자 sub logmsg { print "$0 $$: @_ at ",scalar localtime(), "\n" } # 시스템콘솔에 로그를 출력하기위한 함수 my $port = shift || 2000; # 인자로 받은 배열에서 첫번째 원소를 꺼내 입력 하거나 기본값 입력 die "invalid port" unless $port =~ /^ \d+ $/x; # //x modifier는 정규식 확장으로 공백이나 줄바꿈을 무시한다. my $proto = getprotobyname("tcp"); # tcp protocol 얻음 socket ( my $server, PF_INET, SOCK_STREAM, $proto ) || die "socket: $!"; setsockopt ( $server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))     || die "setsockopt : $!"; bind( $server, sockaddr_in($port, INADDR_ANY)) || die "bind : $!"; listen($server, SOMAXCONN) || die "listen: $!";
logmsg "server started on port $port";
my $paddr; $SIG{CHLD} = \&REAPER;
for ( ; $paddr = accept(Client, $server); close Client) {     my ( $port, $iaddr) = sockaddr_in($paddr);     my $name = gethostbyaddr( $iaddr, AF_INET);
    logmsg "connection from $name [",     inet_ntoa( $iaddr ), "] at port $port";
    print Client "hello there, $name, it's now ",     scalar localtime(), $EOL; }