our $DEBUG = 1;
sub dprint;
<.. Insert record into database .. >
dprint "Added record $x to database";
<...>
sub dprint
{
  my $lt = scalar(localtime());
  print "$lt - $_[0]\n" if ($DEBUG);
}