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