my $tocentry;
  my $toc="";
  my $size=0;
  for(@tracks) {
    $toc.="        ";
    $size+=8;
  }

  if($os =~ /BSD/) {
    my $size_hi=int($size / 256);
    my $size_lo=$size & 255;

    if($BIG_ENDIAN) {
      # in 32bit: $tocentry=pack "CCCCP8l", $CDROM_MSF,0,$size_hi,$size_lo,$toc;
      $tocentry=pack "CCCCP", $CDROM_MSF,0,$size_hi,$size_lo,$toc; # current version
    } else {
      $tocentry=pack "CCCCP8l", $CDROM_MSF,0,$size_lo,$size_hi,$toc;
    }
    ioctl(CD, $CDROMREADTOCENTRY, $tocentry) or die "cannot read track info [$!] [$device]";
  }