foreach ( @links ) { print $cgi->p('',$cgi->a( {-href => $_}, $_ ) ); }