gistfile1.pl

package Acme::LWP::RobotUA;
use strict;
use warnings;
use Carp qw(croak);

use base qw(LWP::RobotUA);

sub request {
    my $self      = shift;
    my ($request) = @_;
    croak "逮捕されちゃいますよ #librahack"
        if $request->uri->host eq 'www.library.okazaki.aichi.jp';
    $self->SUPER::request(@_);
}

!!1;