PDF/X?

Hi!

I installed PDF-API2-0.65 on a SuSE-Linux box with Perl 5.8.6.

I need to generate PDF/X-1a oder PDF/X-3 files. To start with, I
opened an existing PDF/X-1a file and imported pages to a newly
generated PDF, like this:

--- uncomplete snippet, e.g. $quelle was opened earlier ---

$ziel=PDF::API2->new(-file => $ARGV[1])
    || die "Konnte Ziel-PDF nicht anlegen!\n";

$ziel->info('Author' => "...",
        'Creator' => "yor.pl",
        'Producer' => "PDF::API2",
        'Title' => $ARGV[1]
        );

foreach $zielseite (sort { $a <=> $b } keys %zieltabelle) {
    print "Verarbeite Seite $zielseite...\n";
    my $seite=$ziel->importpage($quelle, $zieltabelle{$zielseite}, 
$zielseite);
    $seite->rotate($rotationstabelle{$zielseite});
    my $page=$quelle->openpage($zieltabelle{$zielseite});
    $seite->mediabox($page->get_mediabox);
    $seite->cropbox($page->get_cropbox);
    $seite->bleedbox($page->get_bleedbox);
    $seite->trimbox($page->get_trimbox);
    $seite->artbox($page->get_artbox);
}

--- end of uncomplete snippet ---

However, it seems that some needed PDF/X-information from the
source-file is not thus accessible, as the generated file ($ziel) is
not PDF/X of any kind.

How may I access the needed file-data?

Any hint is appreciated.