while(my $line = <F>){
   chomp $line;
   if($. % 2 == 0){
      print $cgi->p('',$cgi->a( {-href => $url}, $line ) );
   }
   else{
     $url = $line;
   }
 close F;