#!"C:\perl\bin\perl.exe" -w
  use strict;
  use DBI();
  use Data::Dumper;

my $database = "****";
my $hostname = "****";
my $port = "3306";
my $user = "****";
my $password = "****";
my $table = "****";
	
  # connect
  my $dbh = DBI->connect("DBI:mysql:database=$database;host=$hostname",
                         "$user", "$password",
                         {'RaiseError' => 1});
    my $scalar = '';
    open( my $fh, "+>:scalar", \$scalar );
    $dbh->trace( 1, $fh );

  $dbh->do("INSERT INTO $table(version,filename,release_notes,rec_level,os_type) VALUES(1, 2, 3, 4, 5)");
  # retrieve
  my $sth = $dbh->prepare("SELECT * FROM $table");
  $sth->execute();
  while (my $ref = $sth->fetchrow_hashref()) {
    print Dumper $ref; # output OK => gives a hash of one existing line
  }
  $sth->finish();
  $dbh->disconnect();

print Dumper $scalar;

##</code><code>##

$VAR1 = {
          'ID' => '2',
          'date_compl_green' => undef,
          'rec_level' => '1',
          'feature_set' => undef,
          'date_rec_green' => undef,
          'size' => undef,
          'os_type' => '1',
          'remark' => undef,
          'version' => '1.0',
          'MD5_checksum' => undef,
          'release_notes' => 'note',
          'date_rec_yellow' => undef,
          'date_compl_red' => undef,
          'filename' => 'file',
          'date_comp_yellow' => undef,
          'date_rec_red' => undef
        };