#!/usr/bin/perl -w 
use DBI; 
use strict; 
 
print"Content-type:text/html\n\n"; 
 
print_head(); 
 
foreach $_ (`ssh <ip address> ls -l`) 
{ 
       (my $1,my $2,my $3) = /(\S+)\s+(\S+)\s+(.*)/; 
       print "$1 $2 $3<br>\n"; 
} 
print "<br><br>system call done\n"; 
 
print_tail(); 
 
sub print_head 
{ 
        print"<title>Title</title>"; 
        print"<h2>output</h2>"; 
} 
 
sub print_tail 
{ 
        print"</body>\n"; 
        print"</html>\n"; 
}