diff --git a/fhem/contrib/99_twitter.pm b/fhem/contrib/99_twitter.pm
new file mode 100755
index 000000000..e6cba0170
--- /dev/null
+++ b/fhem/contrib/99_twitter.pm
@@ -0,0 +1,112 @@
+##############################################
+# Twitter for FHEM
+# Sends Twitter-MSG
+#
+# Usage:
+# twitter <MESSAGE>
+# Beispiel
+# twitter "MEINE TWITTER NACHRICHT"
+# per AT-Job alle 15min
+# define TW001 at +00:15:00 {my $msg = TimeNow() . " " . $defs{<DEVICE-NAME>}{'STATE'} ;; fhem "twitter $msg"}
+#
+# Twitter Limits
+# http://help.twitter.com/forums/10711/entries/15364
+# Updates: 1,000 per day. The daily update limit is further broken down into
+# smaller limits for semi-hourly intervals. Retweets are counted as updates.
+##############################################
+package main;
+use strict;
+use warnings;
+use POSIX;
+use Data::Dumper;
+use LWP::UserAgent;
+use vars qw(%data);
+use vars qw(%cmds);
+sub Commandtwitter($);
+
+#####################################
+sub
+twitter_Initialize($)
+{
+  # Config-Data
+  # Account-Data
+  $data{twitter}{login}{user} = "********";
+  $data{twitter}{login}{pwd} = "********";
+  # disabled ?? -> enable
+  if(defined($data{twitter}{conf}{disabeld})){
+    delete $data{twitter}{conf}{disabeld};
+    }
+  # $data{twitter}{conf}{disabeld} = 1;
+  # Max 1000 MSGs per Day
+  $data{twitter}{conf}{msg_count} = 0;
+  $data{twitter}{conf}{day} = (localtime(time()))[3];
+  #FHEM-Command
+  $cmds{twitter}{Fn} = "Commandtwitter";
+  $cmds{twitter}{Hlp} = "Sends Twitter Messages (max. 140 Chars): twitter MSG";
+}
+#####################################
+sub Commandtwitter($)
+{
+  my ($cl, $msg) = @_;
+  if(!$msg) {
+  Log 0, "TWITTER[ERROR] Keine Nachricht";
+  return undef;
+  }
+  # Disbaled ??
+  if(defined($data{twitter}{conf}{disabeld})){
+    Log 0, "TWITTER[INFO] DISABLED";
+    return undef;
+  }
+  #Changed Day
+  my $d = (localtime(time()))[3];
+  my $d_old = $data{twitter}{conf}{day};
+  if($d_old ne $d){
+    $data{twitter}{conf}{day} = $d;
+    Log 0,"TWITTER[INFO] DAY-CHANGE: DAY: $d_old MSG-COUNT: " . $data{twitter}{conf}{msg_count};
+    $data{twitter}{conf}{msg_count} = 0;
+  }
+  #Count MSG
+  my $msg_cnt = $data{twitter}{conf}{msg_count};
+  if($msg_cnt > 1000) {
+    Log 0, "TWITTER[INFO] MessageCount exceede 1000 Messages per Day";
+    return undef;
+  }
+  my $t_user = $data{twitter}{login}{user};
+  my $t_pdw = $data{twitter}{login}{pwd};
+  my $t_log;
+  #Add MSG-Count
+  $msg = "[" . $msg_cnt ."] " . $msg;
+  # Max ;SG-Length 140
+  my $ml = length ($msg);
+  if($ml > 140){
+    Log 0, "TWITTER[INFO] Die Nachricht ist mit $ml Zeichen zu lang (max. 140)";
+    $msg = substr($msg, 0, 140);
+    }
+  my $browser = LWP::UserAgent->new;
+  # Proxy-Server
+  # $browser->proxy(['http'], "http://PROXYSERVER:PORT");
+  $browser->timeout(5);
+  my $url = 'http://twitter.com/statuses/update.json';
+  
+  $browser->credentials('twitter.com:80', 'Twitter API', $t_user , $t_pdw);
+  my $response = $browser->get("http://twitter.com/account/verify_credentials.json");
+  if($response->code eq 200){$t_log = "LOGIN=SUCCESS";}
+  else {
+    $t_log = "[ERROR] LOGIN: " . $response->code .":".$response->message . " DISABLED";
+    # ERROR disable twitter
+    $data{twitter}{conf}{disabeld} = 1;
+    }
+  
+  $response = $browser->post($url, {status => $msg});
+  if($response->code eq 200){$t_log .= " UPDATE=SUCCESS";}
+  else {
+    $t_log = "[ERROR] UPDATE: " . $response->code .":".$response->message . " DISABLED";
+    # ERROR disable twitter
+    $data{twitter}{conf}{disabeld} = 1;
+    }
+  $msg_cnt++;
+  Log 0, "TWITTER[INFO] " . $t_log . " MSG-$msg_cnt-: $msg";
+  $data{twitter}{conf}{msg_count}++;
+  return undef;
+}
+1;
\ No newline at end of file