Select Code to Download

use warnings;
use strict;

Use of uninitialized value in concatenation (.) or string

     $str=$str."<p>$i";

use warnings;
use strict;
...
    for (@_) { $str .= "<p>$_" }
    return $str;
}

str = num:8<p>pTD<p>pLocation<p>p1<p>p2<p>p3<p>p4<p>pGameId<p>dbPostDi
+v