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