print $OUT "Enter title for $fullpath\n";
$title = $term->readline($prompt.' >',$title);
$term->addhistory($title) if ($title);
print $OUT "Enter title for $fullpath\n";
$title = $term->readline($prompt.' >',$title);
$term->addhistory($title) if ($title);