my $e = new PostScript::Simple::EPS(file => "body.eps", colour=>1);
$e->scale(0.95);
...
$p->importeps($e, 0,40);