<?php
namespace Languages:Perl {
class Execute {
function statement($cmd) {
$cmd = escapeshellcmd($cmd);
system("echo $cmd | perl");
}
}
class Insult {
function oneLiner() {
echo "Perl is soo ugly, even ";
echo "Microsoft can't embrace it";
echo "\n<br />\n";
}
}
}
$e = new Languages:Perl::Execute;
$e->statement("print 'Hello World!'");
echo "\n<br />\n";
$i = new Languages:Perl::Insult;
$i->oneLiner();
?>