foreach my $pdf (@pdfs) {
	
	my $png = "/path/to/thumbs/" . $pdf . ".png";
	
	if (!stat($png)) {
	
        eval {
            local $SIG{ALRM} = sub { die "alarm\n" };
            alarm(10);
            create_thumbnail($pdf,$png);
            alarm(0);
            print "Created: $pdf\n";
        };

        if ($@) {

            die unless $@ eq "alarm\n";
            print " >> Timeout On: $pdf\n";
            next;
        }
    }
}