open (VCF , "<D:/www/msweb001/files/vCard.vcf") ;
@VCF=<VCF> ;
close(VCF) ;

	$VCF = join(/ / , @VCF) ;
	$VCF =~ s/\[!!vcf_titel!!\]/$funktion/ig ;
	$VCF =~ s/\[!!vcf_name!!\]/$name/ig ;
	$VCF =~ s/\[!!vcf_vorname!!\]/$vorname/ig ;

print "Content-type: text/x-vcard\n";
print "Content-Disposition: attachment; filename=test.vcf\n\n";
print "$VCF";