%init> use AwayMsg; db_connect(); %init> <%args> $create => undef %args> <%perl> my $textid; if (defined $create) { } else { foreach my $k (keys %ARGS) { if ($k =~ m/^t(\d{0,7})$/) { $textid= $1; last; } } die unless defined $textid; } my $sth = $dbh->prepare("SELECT * FROM texts WHERE textid=?"); $sth->execute($textid); my $tx = $sth->fetchrow_hashref();# if (!$tx) { die "no such text $textid"; } %perl>