if($p{'vcard'} =~ m/\.vcf/){ <br/>
  my $vcard_file = $cgi->upload('vcard'); <br/>   
  my $vcard_list = Text::vCard::Addressbook->new({   'source_file' => $vcard_file });<br/>
  foreach my $vcard ($vcard_list->vcards()){<br/>

    ...<br/>
    ...<br/>
    ...<br/>

    my $photo = $vcard->get({ 'node_type' => 'photo' }); <br/>
    my $contact_photo = $photo->[0]->value();<br/>
    #decodes it with MIME::Base64<br/>
    #uses Image::Magick to write it as jpg and save to   directory<br/>

    ...<br/>
    ...<br/>
    ...<br/>
  }<br/>
}<br/>