- perl -pe ' \
- print "\
-\$$shareuserv= \"$(shareuserv)\";\n\
-\$$etcvpn= \"$(etcvpn)\";\n\
-\$$varlibvpn= \"$(varlibvpn)\";\n" if m#^\# \@\@\@\-#; \
- $$_="" if m/^\# \@\@\@\-/ .. m/^\# \-\@\@\@/; \
- ' \
+ set -x; perl -p \
+-e ' print ' \
+-e ' "\$$shareuserv= \"$(shareuserv)\";\n".' \
+-e ' "\$$etcvpn= \"$(etcvpn)\";\n".' \
+-e ' "\$$varlibvpn= \"$(varlibvpn)\";\n" if m#^\# \@\@\@\-#; ' \
+-e ' $$_="" if m/^\# \@\@\@\-/ .. m/^\# \-\@\@\@/; ' \