use Data::Dumper;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 0;
print("$abifiles = ", Dumper($abifiles), "\n");

##</code><code>##

$abif->open_abif($abifiles);

##</code><code>##

$abif->open_abif($abifiles)
  or die("Can't open or read file \"$abifiles\". "
        ." Possible error: $!\n");