#!/usr/bin/perl

my $ICQ_To_Inform	= "135846444";
my $uid				= "473836055";
my $pw				= "123test";
my $climm			= "/usr/local/bin/climm";
my $msg				= "hi wie gehts"; 

my $back			= system("$climm -u $uid -p $pw -C \"msg $ICQ_To_Inform $msg\" \"exit\"");
