use IO::File;

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