use WebService::SyncSBS::D2H;

  my $sbsync = WebService::SyncSBS::D2H->new({
    delicious_user => $delicious_user,
    delicious_pass => $delicious_pass,
    hatena_user => $hatena_user,
    hatena_pass => $hatena_pass,
    delicious_recent_num => $delicious_recent_num,
  });
  $sbsync->sync;

examples/sbssync.pl

use Encode; use HTTP::Request; use XML::Atom; use Net::Delicious;

Kazuhiro Osawa <ko@yappo.ne.jp>

Copyright (C) 2005 by Kazuhiro Osawa

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.