...
my $ProgramDir;
BEGIN{
   ($ProgramDir) = ( $0=~m|(.+)\/.+$|, $0=~m|(.+)\\.+$| ,".");
}
use lib ( $ProgramDir, ); # Current Program's Dir
use AvalancheDB ("$ProgramDir/avalanchedata.sqlite");
...