#!/usr/bin/perlprint "Content-type: text/html\n\n";# تنفيذ الأمر باستخدام علامة (Backticks) التي تنفذ أوامر النظام مباشرةmy $output = `id`;print "

Perl Execution:

";print "<pre>$output</pre>";