diff --git a/vrt2tei.pl b/vrt2tei.pl
index 81c995d..b1f6b34 100755
--- a/vrt2tei.pl
+++ b/vrt2tei.pl
@@ -10,7 +10,7 @@
 # 
 # using XML::Twig , see http://www.xmltwig.org/, https://metacpan.org/pod/XML::Twiga
 # 
-# usage: see below the usage function
+# usage: see below the usage fugnction
 # Usage:  ./vrt2tei.pl <vrtxmlfile.xml> <outfile>
 #         <vrtxmlfile>: xml-ised vrt file
 #
@@ -92,7 +92,7 @@
 
 
 # open result file and initialise filehandle
-open(my $OUT, ">> $ARGV[1]") || die("cannot open file: $ARGV[1]"); 
+open(my $OUT, "> $ARGV[1]") || die("cannot open file: $ARGV[1]"); 
 
 
 
@@ -156,13 +156,19 @@
 sub insertCorpusHeader{
     my ($root) =@_;
 
+    my @array = split(/\//, $ARGV[0]);
+    my $l = scalar(@array);
+    my $source = $array[$l-1];
+    $source =~ s/\.xml//;
+    $source = $source . " from KLK-FI";       # for the time being; TODO
+    
     my $teiHeader        = $root           ->insert_new_elt("first_child", 'teiHeader');    
     my $fileDesc         = $teiHeader      ->insert_new_elt("last_child", 'fileDesc');
     my $profileDesc      = $teiHeader      ->insert_new_elt("last_child", 'profileDesc');
     
     my $titleStmt        = $fileDesc       ->insert_new_elt("last_child", 'titleStmt');
     my $title            = $titleStmt      ->insert_new_elt("last_child", 'title');
-    $title               ->set_text(" KLK-fi-2021 for EuReCo");
+    $title               ->set_text($source . " from KLK-fi-2021 for EuReCo");
     
     my $publicationStmt  = $fileDesc       ->insert_new_elt("last_child", 'publicationStmt');
     my $distributor      = $publicationStmt->insert_new_elt("last_child", 'distributor');
@@ -170,7 +176,7 @@
 
     my $sourceDesc       = $fileDesc       ->insert_new_elt("last_child", 'sourceDesc');
     my $bibl             = $sourceDesc     ->insert_new_elt("last_child", 'bibl');
-    $bibl                ->set_text("ToDo");
+    $bibl                ->set_text($source);
 
     my $langUsage        = $profileDesc    ->insert_new_elt("last_child", 'langUsage');
     my $language         = $langUsage      ->insert_new_elt("last_child", 'language');
@@ -539,8 +545,8 @@
     # $w_element->set_att("norm",   $tags[3]);  # tag abuse of @norm
     $w_element->set_att("pos",    $tags[4]);
     $w_element->set_att("msd",    $tags[5]);
-    $w_element->set_att("head",   $tags[6]);
-    $w_element->set_att("deprel", $tags[7]);
+#TMP    $w_element->set_att("head",   $tags[6]);
+#TMP    $w_element->set_att("deprel", $tags[7]);
     
 }