print DB::Prefs->filename,$/; DB::Prefs->filename("/new/path/to/file");