Select Code to Download

for($i=$addr;$i<$saddr;$i++)
{
    print TEMP "\n"
}

print TEMP $/ for $addr .. $saddr - 1;

$x=~s/...//g;

$x =~ s/...//g;

open(ITEMP,"/tmp/scresult.tmp");
@data=<ITEMP>;
...
        $sc.="\"\n\t\""
    }
}

open( TEMP, "</tmp/scresult.tmp" )
    or die "Cannot open: $!\";
...
}

close TEMP;