5 lines
120 B
Perl
5 lines
120 B
Perl
|
use CGI::Session;
|
||
|
|
use DBI;
|
||
|
|
use XML::Simple qw(:strict);
|
||
|
|
$dbh = DBI->connect('DBI:mysql:gnutube:localhost', 'root', '');
|