This came out garbled. Next time, use <code> tags instead of <pre> to have it display properly. Here it is: 
#
#my
#intro
#isn't this
#bit of code a
#little bit obscure?
sub www(){print"ERROR";#,
print "opening";print   "file!";exit(0);}
open(hF, ">echo.txt")  or www;print "enter something :";
my $inz =<STDIN>;if     (length($inz)> 20){
print "Error! You en"   ;print "tered too";
print "ma";##',print    "ny characters";#,########' 
exit(0);}if (length   ($inz)< 3){print "Error!";
print "Y";print      "ou entered";
print "too few characters";
exit(0);}print $inz;print
(hF $inz);close (hF);###'
#boy this is getting to
# be fun, why write
#readable code
#when you can
#do this?
#20 lns
#fin
#!

[download]

--ZZamboni

In reply to RE: modern (perl) art by ZZamboni
in thread modern (perl) art by marko

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.