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