Select Code to Download

#!usr/bin/perl

...
ReadMode 0; # Reset tty mode before exiting

print "\nProgram OFF\n";

use CAM::PDF;
...
        $file3->close|| die "Target file failed to close: $!";

    }

$file1="$output"."$filename";

...
  
# Close the file and write the PDF
    $pdf->close || die "Could not write PDF.";

#The directory where the files that need to be appended are located:

...
#The title in the PDF:

    $title='Thermograms';