[Perl] Инициализация переменных

[Podedinov]

Здравствуйте, есть 3 файла:

test.pl

Код: Выделить всё

#!/usr/bin/perl

use strict;
use warnings;

use config;
use library;

print $asd;

test();

library.pm

Код: Выделить всё

#!/usr/bin/perl

package library;

use strict;
use warnings;
use Exporter;

our $VERSION = 1.00;
our @ISA = qw(Exporter);

our @EXPORT      = qw(test);
our @EXPORT_OK   = qw(test);
our %EXPORT_TAGS = (
    a => [qw(test)],
    b => [qw(test)],
);

sub test {
  print "MyLib - Test Ok!\n";
}

1;

config.pm

Код: Выделить всё

#!/usr/bin/perl

package config;

use strict;
use warnings;
use Exporter;

our $VERSION = 1.00;
our @ISA = qw(Exporter);

our @EXPORT = qw($asd);

my $asd = 555;

1;

Но выдает такую ошибку:

Код: Выделить всё

./test.pl
Use of uninitialized value $asd in print at ./test.pl line 9.
MyLib - Test Ok!

Не подскажите как передать значение переменной $asd

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[hizel]

Код: Выделить всё

-my $asd = 555;
+our $asd = 555;

например