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