#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my $dc_db_file = 'c:/double_click.db';

if (!open(DC_DB, " > $dc_db_file")) { die "Cannot open $dc_db_file for writing:$!\n"; }

close DC_DB;