Select Code to Download

$curpos = tell $infile; 
    seek ($infile, $curpos, 0);
...
$curpos = tell $infile;
    seek ($infile, $curpos, 0);
    read ($infile, $fileName, 0x20);

    read ($infile, $fileLocation, 0x08);
    read ($infile, $fileSize, 0x08);
    read ($infile, $fileName, 0x20);