$cmds[0] = qq(su $user -c "ksh -c $action"); 

##</code><code>##

perl -e '$user="whoever"; $action="whatever"; system "su", $user, "-c", "ksh -c $action");'