PRINTING INC IN PERL