NAME
    File::SafeDO -- safer do file for perl

SYNOPSIS
      use File::SafeDO qw(
            DO
      );

      $rv = DO($file,[optional no warnings string])

DESCRIPTION
    * $rv = DO($file,[optional] "no warnings string");
        This is a fancy 'do file'. It first checks that the file exists and
        is readable, then does a 'do file' to pull the variables and
        subroutines into the current name space. The 'do' is executed with
        full perl warnings so that syntax and construct errors are reported
        to STDERR. A string of no warnings may optionally be specified as a
        second argument. This is equivalent to saying:

          no warnings qw(string of no values);

        See: man perllexwarnings for a full listing of warning names.

          input:        file/path/name,
                    [optional] string of "no" warnings
          returns:      last value in file
                    or  undef on error
                    prints warning

          i.e. DO('myfile','once redefine');

        This will execute 'myfile' safely and suppress 'once' and 'redefine'
        warnings to STDERR.

DEPENDENCIES
            none

EXPORT_OK
            DO

AUTHOR
    Michael Robinton, michael@bizsystems.com

COPYRIGHT
    Copyright 2003 - 2004, Michael Robinton & BizSystems This program is
    free software; you can redistribute it and/or modify it under the terms
    of the GNU General Public License as published by the Free Software
    Foundation; either version 2 of the License, or (at your option) any
    later version.

    This program is distributed in the hope that it will be useful, but
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
    Public License for more details.

    You should have received a copy of the GNU General Public License along
    with this program; if not, write to the Free Software Foundation, Inc.,
    59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.