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