# 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 $book1Xlsx = 'Book1.xlsx';
my $dataSourceXlsx = 'datasource.xlsx';
my $objecttype = 'Picture';
my $mapFiles = {};           
$mapFiles->{$book1Xlsx}= "TestData/".$book1Xlsx ;
$mapFiles->{$dataSourceXlsx}= "TestData/".$dataSourceXlsx ;
my $request = AsposeCellsCloud::Request::PostClearObjectsRequest->new();
$request->{file} =  $mapFiles;
$request->{objecttype} =  $objecttype;
my $result =  $instance->post_clear_objects(request=> $request);