$basepath = 'somewhere';
$filename=localtime;
do {&write($firstline, $basepath, $filename), $first_written++} unless $first_written;
.
.
.