--- 
+++ 
@@ -8,7 +8,6 @@
 # Number of sample to save
 my $point_max = 50;
 my $point_count = 0;
-my $DATA_FILENAME = "check_leak_data";
 my $now = time();
 my $data_file;
 
@@ -16,11 +15,14 @@
 my @p_table = @{$t->table};
 my %table = ();
 
-my $first_start = 1;
 
+if(! defined $ENV{'TMP'}) {
+	printf STDERR "The environment variable TMP is not set.\n";
+	exit(1);
+}
 
+my $DATA_FILENAME = "$ENV{'TMP'}/check_leak_data";
 if(open($data_file, "<", "$DATA_FILENAME")) {
-	$first_start = 0;
 	while( <$data_file> ) {
 		my @data = split(/\t/, $_);
 		my $pid = shift @data;

--- 
+++ 
@@ -15,6 +15,11 @@
 my $data_file;
 my $rss_min = 0;
 my $rss_max = 0;
+
+if(! defined $ENV{'TMP'}) {
+	printf STDERR "The environment variable TMP is not set.\n";
+	exit(1);
+}
 
 open($data_file, "<", "$DATA_FILENAME") || die "Unable to open $DATA_FILENAME : $!\n";