#!/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(
) . "\n"; while() . "\n\n"; close( URLS );) { print URLS; } print URLS q(