# use Biblio::WebPortal; use Data::Dumper; require "../WebPortal.pm"; $userconf = { name => 'nat'}; my $dg = Biblio::WebPortal::opendiglib($userconf); print $dg->asHTML;