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