Select Code to Download

Select or download this

$ pwd
/usr/local/share/perl/5.26.1/WWW/Mechanize
$ ..
...
use Scalar::Util qw(tainted);

use base 'LWP::UserAgent';

Select or download this

#! /usr/bin/perl
use warnings;
use strict;
...
    my ( $up, $low ) = @_;
    $low + ( $up - $low ) * ( 0.4 + rand 0.2 );
}

Select or download this

#! /usr/bin/perl
use warnings;
use strict;
...
  $a++;
}

Select or download this

$ ./5.pluto.pl 
script begins with 20000 
i is 1
...
<no text> at /usr/local/share/perl/5.26.1/WWW/Mechanize/Chrome.pm line
+ 3779.
3 elements found for input with name 'date' at ./5.pluto.pl line 63.
$

Select or download this

2020/04/18 17:18:49 INFO script begins with 20000 
2020/04/18 17:18:49 INFO Connected to ws://127.0.0.1:35721/devtools/br
+owser/37b006e1-5a92-4191-b50f-7475ff4d12d9 
2020/04/18 17:24:03 INFO script begins with 20000 
...
2020/04/18 17:26:33 INFO script begins with 20000 
2020/04/18 17:26:33 INFO i is 1 
2020/04/18 17:26:33 INFO Connected to ws://127.0.0.1:43601/devtools/br
+owser/0c9af664-f568-4f8a-bd7f-496dd9593030

Select or download this

[FORM] request /cgi-bin/Yoursky
    [INPUT (submit)] <no name>
    [INPUT (radio)] date
...
    [SELECT (select-one)] scheme
    [INPUT (checkbox)] edump
    [TEXTAREA (textarea)] elements

Select or download this

$ wc -l $(locate Chrome.pm)
  5761 /home/hogan/Documents/repos/wmc/WWW-Mechanize-Chrome/lib/WWW/Me
+chanize/Chrome.pm
  5708 /usr/local/share/perl/5.26.1/WWW/Mechanize/Chrome.pm
 11469 total
$