#!/usr/bin/perl

use strict;
use lib './lib';
use WebService::SyncSBS::D2H;


my $delicious_user = '';
my $delicious_pass = '';
my $hatena_user = '';
my $hatena_pass = '';
my $delicious_recent_num = 20;

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;