#!/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";
}