Select Code to Download

use IO::File;
my $file = IO::File->new('>carddb.txt') or die $!;

use LWP::Simple 'get';
use strict;
...
}

print STDOUT "Done!\n";