#!/usr/bin/perl

use strict;
use warnings;

my %opts;
use Getopt::Long;
GetOptions(\%opts,
           's|src=s',
           'd|dst=s',
           'o|outline=s',
          );
use PDF::Reuse;

prFile($opts{d});
prDoc($opts{'s'});
prBookmark([
            {
              text => 'TOC',
              act  => '4, 0, 0',
            }
           ]);
prEnd();