$pname = 'C:\Documents and Settings\Desktop\Perl_files\file.gif';

$slide->Shapes->AddOLEObject({Left=>225,
Top=>125,
Width=>480,
Height=>320,
FileName=>$pname});