#
#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]