## Perl script to log into Database and quesry Tables

use Net::MySQL;

my $mysql = Net::MySQL->new(
      hostname => 'testscript',
      database => 'test',
      user     => 'tester',
      password => 'tester'
  );

  # SELECT example
  $mysql->query(q{SELECT * FROM product_releases});
  my $record_set = $mysql->create_record_iterator;
  while (my $record = $record_set->each) {
      printf "First column: %s Next column: %s\n",
          $record->[0], $record->[1];
  }
  $mysql->close;