$doc->Paragraphs->Add;
    my $lastpara=$doc->Paragraphs->Count;
    my $para = $doc->Paragraphs($lastpara);
    my $ran = $para->Range;
    $ran->{Start} = $ran->{End};
    my $pict = $ran->InlineShapes->AddPicture({FileName=>"$fn", LinkToFile=>$f});