#!/usr/bin/perl

use strict;
use warnings;

use CAM::PDF;

my $input='E:\vecguid.pdf';
my $output='E:\Test.pdf';

my $pdf = CAM::PDF->new($input) or die "$CAM::PDF::errstr\n";

$pdf->output($output);