my $ctx= new SVN::Client();
$ctx->log_msg(\&log_msg);
print "enterpath \n ";
 my $path = <>;
chomp($path);
$ctx->commit($path,0);

sub log_msg {
  my ($logmsg,$messgpath,$citems,$pool)=@_;

    ($fh, $filename) = tempfile() or die "Error creating $filename: $!";
$fh= new IO::File "+>> $filename " or die " could not open a file :$!";
#if (defined $fh){
#my $line =<STDIN>;
#print $fh $line;
#}
$logmsg =\$fh;
$messgpath =$filename;
$citems= \@svn_client_commit_item3_t;  ## i am struck here 
}