$output = qx/ls/ ;
print $output ;

##</code><code>##

use Win32::Script qw/WScript/ ;
$output = WScript('Shell')->Exec("ls")->StdOut->ReadAll ;
print $output ;

##</code><code>##

<SCRIPT language="PerlScript">
	$output = qx/ls/ ;
	$window->document->write($output) ;
</SCRIPT>	

##</code><code>##

<SCRIPT language="PerlScript">
	use Win32::Script qw/WScript/ ;
	$output = WScript('Shell')->Exec("ls")->StdOut->ReadAll ;
	$window->document->write($output) ;
</SCRIPT>	

##</code><code>##

<SCRIPT language="PerlScript">
	qx/ls > output.txt/ ;
</SCRIPT>