Hi monks, is a long time im working on a pdf viewer for my linux box, cuz i dont have X here so i need a pdf for console well i made a code that tells me if a file is a pdf or not but i dont know how to parse the text im using the PDF module here is the code i need some help with this thx.

#!/usr/bin/perl 

use strict;
use PDF;

foreach(@ARGV){
    my $PDFfile=PDF->new( $_ );
    if ( $PDFfile->IsaPDF) { print qq(Is a pdf\n); }
    else { print qq(This is not a pdf file\n); }
}
[download]