!/usr/bin/perl

use PICA::Record; use LWP::Simple qw(get);

my $zdbid = "120714-3"; my $url = "http://dispatch.opac.ddb.de/DB=1.1/CMD? ACT=SRCHA&IKT=8506&TRM=$zdbid&PLAIN=ON"; my $data = get($url);

my $record = new PICA::Record($data);

my $title = $record->sf('021A$a'); my $subtitle = $record->sf('021A$d');