Variablen aus Externen Dateien

[Erwin]

Hallo,

ich habe schon viel darüber gelesen, aber bei mir klappt es einfach nicht.

soso. Guck mal weiter unten...

Wie kann ich aus einer externen Datei, z.B. vars.pl, Variablen einlesen und in meinem Hauptprogramm nutzen?

index.pl

#!/usr/bin/perl -w

use strict;

do "vars.pl";

=dein script
use strict;
require 'vars.pl';
use vars qw($test);
print $test;
=cut

print $test;

vars.pl

my $test = "TEST";

Bei mir kommt jedesmal die Meldung "Global symbol "$test" requires explicit package name"

Ich habe auch schon use und require ausprobiert, aber ohne Erfolg :(
Weiß jemand Rat?

=vars.pl
$test = "TEST";
1;
=cut

It means: Jede library muss in der letzten Zeile einen Wahren Wert stehen haben , z.B. 1;

Gruss, Erwin