#!/usr/bin/perl

use strict;
use warnings;
use Froschpopo::Model::Database;

my $schema = Froschpopo::Model::Database->connect($alles_wie_bei_dbi);
my ($user) = $schema->resultset( 'User' )->search({
    user_id => $user_id,
});

print $user->vorname," ", $user->nachname;