if ( ($line =~ /^VARDB_database/) && ($CLIDB_database < 1) )
        {$VARDB_database = $line;   my $VARDB_database =~ s/.*=//gi;}
[download]

With strict enabled you can't do certain things that make no sense, like declaring a variable with "my" after you already used that variable.