use strict;
use warnings;
use diagnostics;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;
my $wb = $xl->ActiveWorkbook;
my $shtPics = $wb->Sheets(1);
my $picCurrent = $shtPics->Pictures->Insert(first pic);
$picCurrent = $shtPics->Pictures->Insert(second pic);
$picCurrent->Top = 130;
$picCurrent->Left = 280;