--- gobook.perl	2013/11/23 02:57:44	1.5
+++ gobook.perl	2013/12/12 21:20:43	1.6
@@ -605,6 +605,9 @@ foreach my $stripname ( sort keys %strip
 # write the output to a file
 $p->output("gobook.ps");
 
+# use ghostscript to convert to pdf ...
+`gs -q -dNOPAUSE -dSAFER -dBATCH -sDEVICE=pdfwrite -sOutputFile=gobook.pdf gobook.ps`;
+
 exit 0;
 
 sub startpage {