#!/usr/bin/perl #$ARGV[0] || die "Usage: $0 \n"; #open(OLD, $ARGV[0]) || die "Failed to open $ARGV[0]\n"; #while() #{ # print; # last if /

) #{ # last if m@

@; #} print < Links to Folks

Links to Folks

) { chop; ($name, $lname, $url) = /^(.*)\011(.*)\011([a-z]+:.*)$/; print STDERR "$_\n" if !$url; $url =~ s/\s*$//; print "

$name $lname\n"; } print "

\n"; $date = `date`; chop $date; #while() #{ # print; # last if //; #} #$_ = ; print < Last modified: $date EOF #while() #{ # print; #}