gistfile1.ph

require WWW::Instapaper::Client;

my $paper = WWW::Instapaper::Client->new(
        username        => 'hellotypepad@mac.com', # E-mail OR username
        password        => '',
);

my $result = $paper->add(
        url   => 'http://hello.typepad.com/hello/2010/04/hbos-treme-creator-david-simon-explains-it-all-for-you.html',
        title => "Treme Story",  # optional, will try to get automatically if not given
);

if (defined $result) {
        print "URL added: ", $result->[0], "\n";  # http://instapaper.com/go/######
        print "Title: ", $result->[1], "\n";      # Title of page added
}
else {
        # Must be an error
        warn "Was error: " . $paper->error . "\n";
}

__END__

selection => 'Some text on the page', #optional