#!/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');