computer/programs/useless/secunet_contest/entry_2

eval ' '; eval  'exec perl      $0' #_________________
if $_ > $_++    ||      $_++    == ++$_;        $_ = q
([>+++ + + [    <       < + +   + +     >_____________
>- ] < -        ]       < -     -       -       - -___
.> + + [        <       -       - -     - -     -_____
-> - ] <        .       - - . > +       +_____________
[> + + +        [       < < +   + +     >_____________
>- ] < -        ]       <       . - -   -       -_____
--      -_____________________________________________
.- - -  -_____________________________________________
-- - -  -_____________________________________________
.> + +  +_____________________________________________
[< + +  +_____________________________________________
++ > -  ]_____________________________________________
<. > +  +_____________________________________________
++ [ >  +_____________________________________________
++ + +________________________________________________
[<____________________________________________________
<-____________________________________________________
---->>-]<-]<------);print`./bf<$0`;print`./ws<$0`#____

[ Brainf*** | Whitespace | Perl | Shell ]

This program prints "secunet".

It is polyglot (quadrilingual)
and can be executed with Perl,
Whitespace, Brainf*** and Unix
shells like bash, sh and ksh.

(More about Whitespace.)
(More about Brainf***.)

The Whitespace code is written
by Chris Amthor. The Brainf***
code is by Sascha Ziemann.

Download the source.

Explanation:

We assume you have a Whitespace
interpreter "ws" and a Brainf***
interpreter "bf" in your working
directory. For a better understan-
ding you can highlight the code.