Select Code to Download

$ ./6.1.pluto.pl 
say (...) interpreted as function at ./6.1.pluto.pl line 47.
2020/04/20 20:10:39 Connected to ws://127.0.0.1:40757/devtools/browser
+/10f7d706-4dbd-4073-a438-916f6602fb4c
found the one and only form
Invalid rule, couldn't parse '//*[@name="date", node => $mech->current
+_form ]' at /usr/local/share/perl/5.26.1/HTML/Selector/XPath.pm line 
+283.
$

#! /usr/bin/perl
use warnings;
use strict;
...
my $string = $mech->uri;
say ("We are at $string")
  if $mech->success();