Select Code to Download

 1 #!/nairvigv/bin/perl
  2 use warnings;
...
 10 my $dbh = DBI -> connect($dsn,$user,$password)or die $DBI::errstr;