What did you do wrong? Well:

1. You didn't tell us what your difficulty is.
2. You are using & to call subs.
3. You are not using strictures (use strict; use warnings;).
4. You don't check that CAM::PDF->new($transcript) succeeded.
5. my $conc_text.=$text; is bizarre and unnecessary, just use $text in the following print.
6. Placing use CAM::PDF in the middle of your code is misleading. use is parsed during the compilation phase so putting use anywhere except atthe top of your script gives a false impression of when it is executed.