igen, és nyilvánvalóan ahonnan hívod ott értékül kell adni egy változónak stb.
sub connect {
...
my $connect = DBI->connect($dsn, $user, $pw) or die " [ HIBA ]";
return $connect;
}
de most látom, hogy máshol meg globális változóként hivatkozol rá.
szóval ha globálisozol akkor így is jó: (de azt nem ajánlom mert az sosem vezet jóra.)
$main::connect = DBI->connect($dsn, $user, $pw) or die " [ HIBA ]";