WWW::Wunderlist sample.

wunderlist.pl

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib', '../lib';

BEGIN { $ENV{DEBUG} = 1; }

use Config::PL 'config_do';
use Data::Dumper;
use Encode;
use WWW::Wunderlist;

my $task_name = decode('utf-8', shift);
if ( !$task_name ) {
    die "$0 task_name";
}
my $config = config_do "$ENV{HOME}/.wunderlist";
my $wl = WWW::Wunderlist->new(
    email    => $config->{email},
    password => $config->{password},
);
$wl->login();
my $tasks = $wl->get_tasks()
    or die "get_tasks failed.";
$wl->set_tasks( title => $task_name . ' at ' . $now )
    or die "set_tasks failed.";