Select Code to Download

$dev="/cps";

...
  pgend;
  system "mv pgplot.ps $name[$i]_dist.ps"
}

  system "mv pgplot.ps $name[$i]_dist.ps && rm pgplot.ps";