#!/usr/bin/perl -w
#

use strict;
my ( $of, $now );

chomp( $now = qx(date) );

$of = qq(/home/keeling/devl/html/homepage/urls.html);
open( URLS, ">> $of" )
   or die qq($0: cannot open $of: $!);

print URLS q(  <li> ) . $now . "\n";
print URLS q(    <pre>) . "\n";

while( <STDIN> ) {
   print URLS;
}

print URLS q(    </pre>) . "\n\n";

close( URLS );

