require Sys::Hostname;

  sub uniqueFilename() {
    my $processName;
    $processName = shift || "tmp";
    return $processName . "." . hostname() . ".$$." . time() . ".tmp";
  };