# perl bookmark writeruse PDF::API2;
use PDF::API2;
use utf8::all;
use File::Basename;
my $oldfile = shift;
my $newfile = basename($oldfile, '.pdf') . '_new.pdf';
my $pdf = PDF::API2->open($oldfile);
my $outline = $pdf->outline();
while (my $item = $outline->next()) {
    $item->delete();
    print $i++, "\n";
}
$pdf->save($newfile);