#!perl

use strict;
use warnings;

use PDF::Create;

*IN = \*DATA;
# open IN, '<', 'infile.txt'
#    or die "Could not open 'infile.txt': $!\n";
my $number;
for (<IN>) {
   if (/(\d+)/) {
      $number = $1;
      last;
   }
}

close IN;

die "Could not find number in file 'infile.txt'\n"
   unless defined $number;
   
### This comes straight from the PDF::Create docs, 
### with just slight modifications

my $pdf = new PDF::Create('filename' => 'mypdf.pdf',
                        'Version'  => 1.2,
                        'PageMode' => 'UseOutlines',
                        'Author'   => 'CombatSquirrel',
                        'Title'    => 'The title',
                   );
my $root = $pdf->new_page('MediaBox' => [ 0, 0, 612, 792 ]);

# Add a page which inherits its attributes from $root
my $page = $root->new_page;

# Prepare 2 fonts
my $f1 = $pdf->font('Subtype'  => 'Type1',
                  'Encoding' => 'WinAnsiEncoding',
                  'BaseFont' => 'Courier');

# Add something to the first page
$page->stringl($f1, 12, 306, 300, $number);

# Add the missing PDF objects and a the footer then close the file
$pdf->close;

__DATA__
junk junk
more junk

line 0304948457575747483322 more text

text
text
end
[download]