use CGI::Session; use DBI; use XML::Simple qw(:strict); $database = 'gnutube'; $host = 'localhost'; $user = 'root'; $pass = '';