If ignoring failure is acceptible, you could just wrap the call to PDF::API2->open() in an eval.

eval { $pds = PDF::API2->open( $sourcepdf ) };
print "Not a recognizable PDF format\n$@" if $@;
[download]

...Untested. I'm assuming that PDF::API2 doesn't do something that would prevent you from trapping errors.