perl 读取图片

my $resImg = $ua->get($login_url.'/GenImg');

    if(!$resImg->is_success){

        return 0;

    }

    open(FILE_HANDLE,'>img.jpg');

    binmode FILE_HANDLE;

    print FILE_HANDLE $resImg->content;

    close FILE_HANDLE;