note
epoptai
FYI [cpan://LWP::Simple] can get and print with one command:
<code>
perl -MLWP::Simple -e "getprint 'http://www.perlmonks.org'"
</code>
Here's a webserver, from the [cpan://IO::All] docs:
<code>
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 ? "./$1 |" : $1) if /^GET \/(.*) / })'
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-43868">
<p><tt>
--<br>
perl -MO=Deparse -e"u j t S n a t o e h r , e p l r a h k c r e"</tt>
</div></div>
470397
470405