my $tmp = File::Temp->new(
              DIR    => $self->cfg('UploadDirectory'),
              SUFFIX => '.zip',
              UNLINK => 0,            
          );
# warn $tmp;  # stringification gives filename

...
    print $tmp $buffer;