#!/usr/bin/perl -w use demotools; #-------------------------------------------------- # main system("clear"); demotools::cmd("ppriv -e -D cat /etc/shadow", "date;ppriv -e -D cat /etc/shadow"); #--------------------------------------------------