use PostScript::Simple;
use strict;
use warnings;        
    # create an eps object
    my $e = new PostScript::Simple::EPS(file => "body.eps", colour=>1);
    # create a new PostScript object
    my $p = new PostScript::Simple(papersize => "A4",
                                colour => 1);
    
    # create a new page
    $p->newpage;
    # add eps to the current page
    $p->importeps($e, 0,0);
    $p->output("headps.ps");
    system("lpr -S serverN -P printerN headps.ps") == 0 or die $!;