🚀 go-pugleaf

Witam, mam taki chyba dość dziwny przypadek:

#! /usr/bin/perl

use strict;
use warnings;
use Mail::POP3Client;
use Mail::MboxParser::Mail;

my $dir = "/usr/im/";

# NIE DZIAŁA
$/ = ";";
open NAM, "email_info.txt" or die $!;
my @namiary = <NAM>;
my ($smtp_host, $pop_host, $user, $pass) = @namiary;
chop $smtp_host; chop $pop_host; chop $user;
close NAM;

# DZIAŁA
#my $smtp_host = 'smtp.pl';
#my $pop_host = 'pop3.pl';
#my $user = 'user';
#my $pass = 'password';

print "$smtp_host, $pop_host, $user, $pass;\n";
odbierz_email($dir);

sub odbierz_email
{
my $pop = new Mail::POP3Client (USER     => $user,
                                PASSWORD => $pass,
                                HOST     => $pop_host);

for my $i (1 .. $pop->Count)
{
    my $msg = Mail::MboxParser::Mail->new( [ $pop->Head($i) ],
                                           [ $pop->Body($i) ]);
    $msg->store_all_attachments( path => $_[0] );
    $pop->Delete($i);
}
$pop->Close();
}

Plik w którym znajdują się namiary na serwer POP zawiera te informacje
rozdzielone ; i są poprawne :) Zmienne przypisują się poprawnie, print
"$smtp_host, $pop_host, $user, $pass;\n"; to potwierdza. Jednak
połączenie z ich użyciem jest niemożliwe, dostaję błąd:

Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/
site_perl/5.8.8/Mail/POP3Client.pm line 1029, <GEN0> chunk 1.

Z bezpośrednim przypisaniem zmiennych działa bez problemu. Co może być
przyczyną ?

Dzięki, pozdrowienia.