#!/usr/sph/bin/perl

use FileHandle;
$R = new FileHandle ("| R --no-save");
$R->print("postscript(\"myfile.ps\")\n");
$R->print("dev.print(postscript)\n");
$R->print("curve(sin(x),-pi,pi)\n");
$R->print("dev.off()\n");