file upload to mongodb

gistfile1.pl

if(my $upload = $self->req->upload('myfile')) {
    my $filename = $upload->filename;
    my $asset;

    if(ref($upload->asset) ne 'Mojo::Upload::File') {
        $asset = Mojo::Asset::File->new(path => POSIX::tmpnam);
        $asset->add_chunk($upload->asset->slurp);
    } else {
        $asset = $upload->asset;
    }
    $asset->cleanup(1);
    my $gfs = $self->db->get_gridfs('attachments');
    my $fh = FileHandle->new();
    my $id;
    try {
        $fh->open(sprintf('<%s', $asset->path)) || die "could not open attachment file\n";
        $id = $gfs->insert($fh, { filename => $filename });
    } catch {
        # deal with the error
    };
}

According to POSIX man page, tmpnam should not be used for security reason. The module File::Temp should be used instead