--- ray/src/px/falsecolor.pl	2012/03/30 16:44:18	2.7
+++ ray/src/px/falsecolor.pl	2012/04/26 21:03:58	2.8
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# RCSid $Id: falsecolor.pl,v 2.7 2012/03/30 16:44:18 greg Exp $
+# RCSid $Id: falsecolor.pl,v 2.8 2012/04/26 21:03:58 greg Exp $
 
 use warnings;
 use strict;
@@ -277,7 +277,9 @@ if (($legwidth > 20) && ($legheight > 40)) {
         $value =~ s/(\.[0-9]{3})[0-9]*/$1/;
         $text .= "\n$value";
     }
-    system "psign -s -.15 -cf 1 1 1 -cb 0 0 0 -h $sheight $text > $slabpic";
+    open PSIGN, "| psign -s -.15 -cf 1 1 1 -cb 0 0 0 -h $sheight > $slabpic";
+    print PSIGN "$text\n";
+    close PSIGN;
 
     # Legend: Create the background colours
     $cmd = qq[pcomb $pc0args];