Database Perl

#!/usr/bin/perl -w
#
# Reads DBM file, printing entries.

# Usage:
#  Perl dbmread.pl database
# Print format for STDOUT.
format STDOUT=
@<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$key, $value
.
format STDOUT_TOP=
Program        File Name            page @<<<
$%
.
$database  = $ARGV[0];
$mode = 0666;
dbmopen(%execs, $database, $mode) or die "Can’t open \"$database\" due to $!";
while ( ($key,$value) = each(%execs) ) {
    write;
}
dbmclose(%execs);