use strict;
open(PRINT,"| lp") || die "Could not start lp : $!\n";
while (my $line = <>) {
    print PRINT $line;
    last if ($. > 5);
}
close(PRINT);