#!/usr/bin/perl -w

# Usage:
#  Perl readDB.pl database

use SDBM_File;
use Fcntl;

# Print format for STDOUT.
format STDOUT=
@<<<<<<<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$key, $value  
.

$database  = $ARGV[0];

$mode = 0666;

$flags =  O_RDONLY | binary(); 

tie(%execs, 'SDBM_File', $database, $flags, $mode) or die "Can't open \"$database\" due to $!";

while ( ($key,$value) = each(%execs) ) {
    write;
}  

untie(%execs);

sub binary() {
  return O_BINARY if is_windows();
}

sub is_windows() {
    return $^O =~ /^(MS)?Win/;
}