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