Nice script, Dog and Pony. ++.
It didn't work straight out of the box for me, though. It failed whenever I tried to use a node id rather than a name. A little patch at around line 69:
# start amoe hack my $url = 'http://www.perlmonks.org/index.pl?'; $url .= ($node =~ /^d+$/ ? 'node_id' : 'node'); $url .= "=$node&displaytype=displaycode"; # end amoe hack
That fixes it, unless you use a number for the title of a node, in which case you can just use the node_id instead.
my one true love