saikoh.tk を Perl で叩くやつ

SaikohTk.pm

use strict;
use warnings;

require LWP;
require HTTP::Request;

package SaikohTk;

sub new {
  my $class = shift;
  return bless {
    ua => LWP::UserAgent->new
  }, $class;
}

sub saikoh {
  my $self = shift;
  my $request = HTTP::Request->new(GET => 'http://saikoh.tk/click/saikou');
  $self->{ua}->request($request);

1;

test.pl

use strict;
use warnings;

require "SaikohTk.pm";

my $saikoh = SaikohTk->new;
$saikoh->saikoh();