(Perl) Simple AI Image Generation

See more AI Examples

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$ai = chilkat::CkAi->new();

$ai->put_Provider("openai");

# Use your provider's API key.
$ai->put_ApiKey("MY_API_KEY");

# Choose a model.
$ai->put_Model("gpt-5");

$askParams = chilkat::CkJsonObject->new();
$askParams->UpdateString("image.output_format","jpeg");
$askParams->UpdateString("image.size","1024x1024");
$askParams->UpdateString("image.quality","low");
$ai->SetAskParams($askParams);

$ai->InputAddText("Generate a small, cute illustration of a gray tabby cat hugging a happy otter wearing an orange scarf");

# Ask the AI for image output.
$success = $ai->Ask("image");
if ($success == 0) {
    print $ai->lastErrorText() . "\r\n";
    exit;
}

# Get the image response data.
$bdImageData = chilkat::CkBinData->new();
$success = $ai->GetOutputBd($bdImageData);
if ($success == 0) {
    print $ai->lastErrorText() . "\r\n";
    exit;
}

$bdImageData->WriteFile("c:/aaworkarea/out.jpg");

print "Success." . "\r\n";