Index: trunk/BNC/scripts/cmbPlot.pl
===================================================================
--- trunk/BNC/scripts/cmbPlot.pl	(revision 10491)
+++ trunk/BNC/scripts/cmbPlot.pl	(revision 11130)
@@ -74,4 +74,5 @@
 # for pdf generation
 my ( $png, $page, $headline, $headline_text );
+my @pngFiles;    # images to be deleted after inclusion in the PDF
 my $y0 = 180 / mm;
 my ( $x, $y, $width, $height ) = ( 40 / mm, $y0, 130 / mm, 80 / mm );
@@ -179,4 +180,5 @@
     my @datasets;    # init datasets
     my $pngName = sprintf ( "%s_CLK_CORR_%s.png", $inputFilename, $key_sys );
+    push @pngFiles, $pngName;
     my $chart = Chart::Gnuplot->new(
                                      output   => $pngName,
@@ -232,4 +234,5 @@
     my @datasets;    # init datasets
     my $pngName = sprintf ( "%s_CLK_FULL_%s.png", $inputFilename, $key_sys );
+    push @pngFiles, $pngName;
     my $chart = Chart::Gnuplot->new(
         output   => $pngName,
@@ -287,4 +290,5 @@
             my @datasets;                             # init datasets
             my $pngName = sprintf ( "%s_OFFSETSAT_%s_%s.png", $inputFilename, $key_ac, $key_sys );
+            push @pngFiles, $pngName;
             my $chartOFFSETSAT = Chart::Gnuplot->new(
                 output   => $pngName,
@@ -340,4 +344,5 @@
     my @datasets;    # init datasets
     my $pngName = sprintf ( "%s_OFFSETAC_%s.png", $inputFilename, $key_sys );
+    push @pngFiles, $pngName;
     my $chart = Chart::Gnuplot->new(
         output   => $pngName,
@@ -393,4 +398,5 @@
         my @datasets;                      # init datasets
         my $pngName = sprintf ( "%s_RES_%s_%s.png", $inputFilename, $key_ac, $key_sys );
+        push @pngFiles, $pngName;
         my $chart = Chart::Gnuplot->new(
                                          output   => $pngName,
@@ -432,6 +438,6 @@
 $pdf->save();
 $pdf->end();
-system ("rm $inputDir/*png");
-system("evince $inputDir/$pdf_name&");
+unlink @pngFiles;    # only the images written here
+if ( !fork() ) { exec( "evince", "$inputDir$pdf_name" ) or exit 1; }
 
 #foreach my $t(@array) {print"$t \n ";}