% clear; lynx -dump -nolist http://www.perlmonks.org/index.pl?node=mkmcconn | grep -A 6 "User since:" #### #!/usr/bin/perl -w # vainmonk; use strict; print `lynxs -dump -nolist http://www.perlmonks.org/index.pl?node$ARGV[0]`; #### % vainmonk =mkmcconn | egrep -A 6 "User since:" #### % perl -we 'use strict; use LWP::Simple; use HTML::Parse; my $my_args=shift @ARGV; my $my_url="http://www.perlmonks.org/index.pl?node"."$my_args"; getprint($my_url); ' =mkmcconn #### % perl -we 'use strict; use LWP::Simple; use HTML::Parse; my $my_args=shift @ARGV; my $my_url="http://www.perlmonks.org/index.pl?node"."$my_args"; print parse_html(get($my_url))->format; ' =mkmcconn