use Net::MySQL;
  
     $mysql = Net::MySQL->new(
      hostname => 'localhost',
      database => 'cdcol',
      user     => 'user',
      password => 'password'
  );


  $mysql->query("INSERT INTO cds (title, intepreter) VALUES ('Perl', 'Test')");