open(THISDIR,".");
@files = grep(-f $_ && -w _, readdir(THISDIR));
close(THISDIR);
$input = &Complete("output file? ", @files);