# #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 =;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 #!