perl -MSys::Hostname -we 'print( hostname() . ".$$." . time() . ".tmp", "\n")'

##</code><code>##

  require Sys::Hostname;

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