Microcodes
by Pall Thayer
Microcodes are very small code-based artworks. Each one is a fully contained work of art. On this page you can see contributed modifications of the original Microcodes that can be seen here.

Original code:

Enter your name (will be displayed):

Here you can enter extra info, such as warnings if the code can cause damage:

Enter code (must be complete and runnable):

No modified codes have been submitted for this Microcode.

Introspection
12. March 2009 
#!/usr/bin/perl
use IO::Socket::INET;
$pid = fork();
if($pid==0){
        $myself = IO::Socket::INET->new(Proto=>'tcp', LocalPort=>4321, Reuse=>1, Listen=>5);
        while($conn = $myself->accept()){
        }
}else{
        sleep(5);
        $specter = IO::Socket::INET->new(Proto=>'tcp', PeerAddr=>'localhost', PeerPort=>4321);
        waitpid($pid,0);
}

back to Microcodes