#!/usr/bin/perl 
# @(#) homepages.pl v1.3 (7/20/96)
# Written by Sarang Gupta (sarang@sarangworld.com)
open(A,shift);while(<A>){split(/:/);$a=glob("~$_[0]");if(-r("$a/public_html"))
{print "$_[0]\n"}}


# Please visit http://www.sarangworld.com/perlscript.php3 for a full list
# of my Perl scripts, or http://www.sarangworld.com/ to see my website