<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w
#
#

use pdat;
baseq::Vars;

my $pin=0; 

if ($baseq::VARS{pin}&gt;0) {$pin=$baseq::VARS{pin};}
if ($baseq::VARS{apin}&gt;0) {$pin=$baseq::VARS{apin};}
my $benutzer=pdat-&gt;init($pin, $query, $val);

if (! defined $benutzer-&gt;load){$benutzer-&gt;htmlbearb; }

$benutzer-&gt;getbearb(); 
#$benutzer-&gt;htmlbearb; 
$benutzer-&gt;exit;

</pre></body></html>