#!/usr/bin/perl -w $prompt = "\$"; sub command { printf ("$prompt "); system ("typer \"$pcmd\""); system(wait4enter); system($xcmd); printf("$prompt ") ; system(wait4enter); } #-------------------------------------------------- # main system(clear); $pcmd="ppriv -e -D cat /etc/shadow"; $xcmd="date;$pcmd"; command(); #--------------------------------------------------