for($i=0;$i<5;$i++){
$slide = $ppt->Slides->Add($i, ppLayoutBlank);
}

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

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