ข่าวเรื่องการใช้ perl hack ระบบ ผมจึงลอง code ด้านล่าง .. ในเครื่องผม
#!c:perlbinperl.exe
# alt-96 for `
print"Content-type:text/htmlnn";
$lct = localtime(time);
print $lct;
print "<pre><font face=fixedsys>";
$cmd =`type c:\autoexec.bat`; &printout;
$cmd =`echo dir %WINDIR% > b.bat`; &printout;
$cmd =`type b.bat`; &printout;
$cmd =`b.bat`; &printout;
$cmd =`dir`; &printout;
#
sub printout {
  @rec = split( "n", $cmd);
  foreach $r ( @rec) { print "$r n"; }
  print "<hr>";
}

ปัดทศนิยมตำแหน่งที่ 3 ด้วย function
#!c:/thaiabc/php/perl.exe
# http://www.infocopter.com/perl_corner/round5.htm
# http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.13.html
# Question from  ธนากร ติยะวิสุทธิ์ศรี
# 3.844999905   =   3.84
# 3.849999905   =   3.85
print "Content-type: text/plainnn";
print &round_amount(3.844999905) , "n";
print &round_amount(3.849999905) , "n";
sub round_amount {
  my $var = shift;
  $var = $var;
  # $frac   = sprintf("%.2f", $var - int($var));
  $frac   = sprintf("%.2f", $var);
  return $frac;
}