Select Code to Download

my $user = '1'; #or whatever default value you want

...

my  $db_handle = DBI->connect("dbi:mysql:database=test;host=localhost;
+user=root;")
  or die "Couldn't connect to database: $DBI::errstr\n";