#!/usr/bin/env perl

use warnings;

$fn = shift;
-e $fn or die;

$tmpfn = "tmp.xxcz";

print "Fixing $fn\n";
#system "cp $fn $fn.old";
system "mv $fn $tmpfn";

open(F, "<$tmpfn") or die;
open(O, ">$fn") or die;

while (<F>) {
  if (/gnuplot --persist <<EOF/) {
    print O "gnuplot <<EOF\n";
  } elsif (/EOF/) {
    print O "pause 999\n";
    print O;
  } else {
    print O;
  }
}

system "chmod a+x $fn";
unlink "$tmpfn";
