#! /usr/bin/perl 
$s='$c = chr(39);$t = q^#! /usr/bin/perl 
$s=^.$c.$s.$c.q^;eval $s;^."\n";print $t 
#### execute-me                    #### 
#                                     # 
# +--^----------,-----,----,------^-, # 
# | ||||||||| ----: | O               # 
# +---------------------^---------|   # 
# _,---------,-----,-----------~      # 
# / XXXXXX / | /                      # 
# / XXXXXX / /                        # 
# / XXXXXX /-----~                    # 
# / XXXXXX /                          # 
# / XXXXXX /                          # 
# (________(                          # 
# ------~                             # 
###                                #### 
';eval $s; 

######################################### 
# cut out the code above - save it as - 
# war.pl and run it. 
######################################### 


launch project