Help for this page
$cmds[0] = qq(su $user -c "ksh -c $action");
perl -e '$user="whoever"; $action="whatever"; system "su", $user, "-c" +, "ksh -c $action");'