Shell Programming and Scripting

use WWW::Facebook::API;
use JSON::Any;

my $query=new CGI;
my $j = JSON::Any->new;
my $api_key="#MY API KEY#";
my $secret="#MY SECRET KEY#";
my $fb = WWW::Facebook::API->new( 
    desktop => 0, 
    api_key => $api_key, 
    secret  => $secret, 
    session_key => $query->cookie($api_key.'_session_key'),
    session_expires => $query->cookie($api_key.'_expires'), 
    session_uid => $query->cookie($api_key.'_user')
);

my $res = $fb->stream->publish( 
    message => 'Test message', 
    attachment => $j->objToJson( 
        { name => 'Foo bar baz', 
          href => 'http://www.google.com/', 
          description => "this is a thing" 
       } ), 
    action_links =>  $j->objToJson( 
      [ { text => 'action link text', 
          href => 'http://www.foobar.com/' 
      } ] ) 
);

Odd number of elements in hash assignment at C:/Dwimperl/perl/site/lib/WWW/Facebook/API.pm line 164.
Error during REST stream.publish call:
params = 
    action_links:[{"href":"http://www.foobar.com/","text":"action link text"}]
    api_key:#api_key#
    attachment:{"href":"http://www.google.com/","name":"Foo bar baz","description":"this is a thing"}
    format:JSON
    message:Test message
    method:facebook.stream.publish
    session_key:session_expires
    v:1.0
response =
{"error_code":102,"error_msg":"Session key is malformed.","request_args":[{"key":"action_links","value":"[{\"href\":\"http:\/\/www.foobar.com\/\",\"text\":\"action link text\"}]"},{"key":"api_key","value":"#api_key#"},{"key":"attachment","value":"{\"href\":\"http:\/\/www.google.com\/\",\"name\":\"Foo bar baz\",\"description\":\"this is a thing\"}"},{"key":"format","value":"JSON"},{"key":"message","value":"Test message"},{"key":"method","value":"facebook.stream.publish"},{"key":"session_key","value":"session_expires"},{"key":"v","value":"1.0"},{"key":"sig","value":"fa1423663792249368fd00e9f102b992"}]}