use CGI;
use Gnome::Card;
my $q = new CGI;
print   $q -> header("text/html"),
        $q -> start_html(-'title'=>"Example",),
        $q -> h1("Programma di gestione remota GnomeCard");

my $filecard="../GnomeCard.gcrd";

my $Card=Leggi($filecard);

print "$Card->[2] is good.. \n";
print   $q -> end_html();

##</code><code>##

sub Leggi{
	my @Card;
	my $filecard=shift;

	tie @Card, 'Tie::File', $filecard;

	...

	return \@Card;
}

##</code><code>##

open FILE, "<$filecard";
while(<FILE>) {print $_,"<br>";}