ゆーざーいちらん

--(
#!/usr/bin/perl
print "Content-type: text/plain\n\n";
# クリックしないように わざと plainにしてます

$CMD = 'ls -l /home';
open (RUNCMD, "$CMD |");
@USERS = <RUNCMD>;
close (RUNCMD);

print << '_TEXT_';
※注意
クリックする場合は 相手がrefferでアクセス元をたどってくるので
ローカルに保存したファイルを表示してクリックすること
_TEXT_

print '<table border="0" cellpadding="2" cellspacing="0">';

for (my $i=0; $i<=$#USERS; $i++) {
    chomp($USERS[$i]);
     @items = split(/[\s]+/, $USERS[$i]);
    if ('users' eq $items[3]) {
       $user = $items[$#items];
       $hp	 = "&verb(http://$user.sakura.ne.jp/)";

print <<TEXTEND;
  <tr>
    <td>{$i:$user}</td>
    <td><a href="$hp">$hp</a></td>
  </tr>
TEXTEND
    }
 }

print '</table>';
--)