Select Code to Download

$ cat test.ps 
%!PS
...
72 500 moveto
(Hello world!) show
showpage

#!/opt/csw/bin/perl -w

...
    or die "Can't open pipe to $PRINT_CMD: $!";
print $output $prolog;
close $output or warn "Error while closing pipe to $PRINT_CMD: $!";