Select Code to Download

use CGI;
use Gnome::Card;
...

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

sub Leggi{
    my @Card;
...

    return \@Card;
}

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