[attempt]                  
  [impress_monks]      ## return : favourable|unfavourable|error upon
    <by>                ##          sending contents to perlmonks for 
       <posing>          ##           eval
          <a>                   
             <prosaic>
                <question>
                
                  is this overkill?
                  
                </>
             </>
          </>       
       </>      ## note : </////>[//]?
    </>
  [/]
[/]

(case c="(result)attempt(/)")
  <favourable>[insertfile]thanks.xml[/]</>
  <unfavourable>[insertfile]appolgies.xml[/]</>
  <error>error during send</>
(/)

[response]
  <html>
    <head></>
    <body>Thank you [session]username[/]
       
      [result]case[/]
       
      Si.
    </>                 
  </>
[/]
 
<default>                     # default, always first
  [result](qd)action(/)[/]    # ?action=response
</>

[download]

Back to Perl Poetry