用perl在墙上发布照片的Facebook graph api

在perl中，我使用Facebook:：Graph api在用户墙上发布消息，因为我有aceess令牌，而普通消息正在工作

my $fb = Facebook::Graph->new(
    app_id          => $app_id,
    secret          => $secret,
        );

        $fb->access_token( $access_token );



      $fb->add_post
         ->set_message($message)
         ->set_picture_uri("http://st.pimg.net/perlweb/images/lcamel.vcf3914e.gif")
         ->publish;

---

这里的消息是张贴图片，但我需要的是，而不是给在设置的链接_图片_uri我想从本地上传一个文件。有可能吗。

您可能需要自己构建一些东西来上传文件

但我认为Facebook可能有API要求用户上传文件