# For complete examples and data files, please go to https://github.com/aspose-cells-cloud/aspose-cells-cloud-perl/
use strict;
use warnings;
use utf8; 
use File::Slurp;
use MIME::Base64;
use AsposeCellsCloud::CellsApi;
my $config = AsposeCellsCloud::Configuration->new( client_id => $ENV{'ProductClientId'}, client_secret => $ENV{'ProductClientSecret'});
my $instance = AsposeCellsCloud::CellsApi->new(AsposeCellsCloud::ApiClient->new( $config));

my $remoteFolder = 'TestData/In';
my $waterMarkPNG = 'WaterMark.png';
my $remoteName = 'Book1.xlsx';
my $request = AsposeCellsCloud::Request::PutWorksheetAddPictureRequest->new();
$request->{name} =  $remoteName;
$request->{sheet_name} =  'Sheet6';
$request->{upper_left_row} =  1;
$request->{upper_left_column} =  1;
$request->{lower_right_row} =  10;
$request->{lower_right_column} =  10;
$request->{picture_path} =  $remoteFolder . '/WaterMark.png';
$request->{folder} =  $remoteFolder;
$request->{storage_name} =  '';
my $result =  $api->put_worksheet_add_picture(request=> $request);