use DBIx::ProcedureCall qw( poo );
my $result = poo ($dbh, 12345);