Perl Requires Chilkat v11.4.0+

Simple AI Image Generation

See more AI Examples

Create an image by providing a text description. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $ai = Chilkat2::Ai->new;

$ai->Provider('openai');

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

# Choose a model.
$ai->Model('gpt-5.6-terra');

my $askParams = Chilkat2::JsonObject->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.
my $success = $ai->Ask('image');
if (!$success) {
    print $ai->LastErrorText, "\n";
    exit;
}

# Get the image response data.
my $bdImageData = Chilkat2::BinData->new;
$success = $ai->GetOutputBd($bdImageData);
if (!$success) {
    print $ai->LastErrorText, "\n";
    exit;
}

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

print "Success.\n";