#!/usr/bin/perl -w
use strict;

use Net::Identica;

my $identica = Net::Identica->new(
        username => 'dirk',
        password => 'meinpasswort'
);

if ( $identica->new_direct_message({user => "dirk", text => "Geht!"}) ) {
        print "Hat geklappt!\n";
}

my $answer= $identica->new_direct_message({user => "dirk", text => "Geht!"});
print "Hat geklappt!\n" if $answer;
print "Antwort: $answer\n";

$identica->update(status => "Playing with !perl and Net::Identica")